VBA:

Question

Bonjour, 

Je voudrais que si les cellules de la colonne F contiennent le mot "SNCF" alors les cellules correspondantes de la colonne G prennent pour valeur "transport".
J'ai fais la macro suivante, pas d'erreurs mais pas de résultat non plus! Je ne suis pas trés expérimenté il faut dire...
Pouvez-vous m'aider?
Merci


Sub Catégorie_auto()
For i = 1 To 65

ActiveSheet.Cells(i, 6).Select

If UCase(ActiveCell) Like "*SNCF*" Then
Cells(i, 7).Select
    With Selection.Value = "transport"
    End With
End If
Next
End Sub

Krysstof · Answer

If UCase(ActiveCell) Like "*SNCF*" Then  ca marche pas !!! 


essaye avec ca 

if instr(UCase(ActiveCell), "SNCF") >0 then
    Cells(i, 7).value = "transport"
end if


au passage j'ai viré le .select, with, end with, qui servent à rien

eleaFDC · Answer

Super! Merci

VBA:

2 réponses

Votre réponse

Discussions similaires

Newsletters