VBA problème construction d'une boucle

[Rafilo13]

Bonjour,

Dans un fichier je souhaite tester les différentes valeur d'une colonne (B) de données et suivant la valeur donner une valeur dans la cellule correspondante dans la colonne E.

J'ai donc essayer de faire une boucle, le résultat n'étant pas concluant je me permets de soliciter vos lumières.

Mon code :

Dim i As Integer
Dim b As Long

'Defini la dernière valeur a tester
d = Range("A65536").End(xlUp).Row

'Boucle pour tester les différentes cellules de ma colonne
For i = 3 To d Step 1

If Cells(i, 2) = "Baffier Marie-France" Then
Cells(i, 5) = "MdMS"

If Cells(i, 2) <> "Baffier Marie-France" Then
Cells(i, 5) = "Pas MdMS "

End If

Next

End Sub


Voila n'hésiter pas à me demander des précision car je ne sais pas si c'est très clair.

Je vous remercie par avance.

Bonne journée

 

[Cousinhub]

Re : VBA problème construction d'une boucle

Bonjour,

Perso, j'essaierai ainsi :

Dim Cel As Range
For Each Cel In Range("B3:B" & Cells(Rows.Count, 1).End(xlUp).Row)
    If Cel.Value = "Baffier Marie-France" Then
        Cel.Offset(, 3) = "MdMS"
    Else
        Cel.Offset(, 3) = "Pas MdMS"
    End If
Next Cel

Bonne journée

 

[VDAVID]

Re : VBA problème construction d'une boucle

Bonjour Rafilo,
Je pense que le problème vient de la ligne Range("A65536").End(Xlup).Row qui n'est pas forcément utile dans ton cas :

Tu peux tester ce code qui fera la même chose, tu peux faire varier le nombre de lignes concernés en changeant le la valeur de "i" :

Sub rien ()
Dim i&
For i = 2000 To 3 Step -1

If Cells(i, 2) = "Baffier Marie-France" Then
Cells(i, 5) = "MdMS"

If Cells(i, 2) <> "Baffier Marie-France" Then
Cells(i, 5) = "Pas MdMS "

End If

Next

End sub

Bonne journée !

 

[Rafilo13]

Re : VBA problème construction d'une boucle

Merci c'est super