Résolu VBA : Help Analyser plusieurs cellules

[hykkles]

Bonjour,

Voici mon problème :

J'ai plusieurs lignes dans un Excel.
J'aimerai analyser une partie et si j'ai le caractère C dans la ligne X collone Y, écrire "il y a un C sur cette ligne) à la ligne X et sur la collone Y+1.

Je vous écris le code que j'ai fais pour voir ou ça ne marche pas :

Dim Babybel As Integer

    For Compteur = 1 To 25 Step 1
    
    If Sheets("feuil1").Cells(Compteur, 1) = C Then
    
    Cells(Compteur, 2) = " Il y a un C sur cette ligne"
    
    End If
    
    
    Next Compteur

 

[Jerome MULDER]

Bonjour,

Regarde plutôt la formule RECHERCHEV().
en VBA, une formule se donne à une cellule: ActiveCell.FormulaR1C1 =
avec R1C1 correspondant à la cellule A1 (1er rang, 1ere colonne)

 

[zeb]

Plop,

En VBA, on peut aussi utiliser Offset pour ne pas avoir à faire des calculs de lignes ou de colonnes (un L, deux N, hein !).
En 1985, on pouvait mettre des Step 1 et des Next variable.
Mais trente ans après...

Dim cell As Range
For Each cell in Worksheets("Feuil1").Range("A1:A25")
	If cells.Value = "C" Then cell.Offset(, 1).Value = "Il y a un C sur cette ligne"
Next

(Observons les guillemets autour du C qui transforment cette variable en chaîne de caractères. A l'avenir, on utilisera l'Option Explicit pour détecter ce genre de problème.)