Reporter valeur dans une cellule
Bonjour,
Je souhaite en langage VBA reporter en colonne J la valeur "OK" si le contenu de la colonne A commence par "VOIT", et dans le cas ou la colonne A commence par "DI" reporter en colonne J "KO".
Cela doit être fait de A2 jusqu'à la dernière ligne non vide.
Merci par avance de votre aide
J'ai réussi !!!! merci quand même
[code][/Dim i As Integer
For i = 2 To Range("D65530").End(xlUp).Row
If Range("A" & i) Like "VOIT*" Then
Range("J" & i).Offset(, 1) = "OK"
Else
Range("J" & i).Offset(, 1) = "KO"
End If
Next icode]
Bonjour antho19,
Tu a écrit :reporter en colonne J la valeur "OK" ... reporter en colonne J "KO"
Tu veux donc le résultat en colonne J, mais dans ton code VBA, tu as mis 2× : Range("J" & i).Offset(, 1)
or avec .Offset(, 1) à partir de J, c'est une colonne à droite de la colonne J, donc en colonne K
➯ c'est bizarre ... mais si tu as obtenu ce que tu voulais, c'est l'essentiel !
D'autre part, ton énoncé indique que tu veux "KO" en J quand A commence par "DI" ; mais avec ton code, ça affichera "KO" dans tous les cas où A ne commence pas par "VOIT", donc pas seulement si A commence par "DI".
Mais ça peut marcher si en colonne A, quand ça ne commence pas par "VOIT", ça commence forcément par "DI" et rien d'autre !
Désolé si j'ai un peu refroidi ton enthousiasme, mais tu devrais peut-être mieux vérifier ces 2 points ?
dhany