Bonjour,
Je ne suis pas le premier sur ce topic mais je n'arrive pas à y trouver ma réponse.
J'ai 2 colonnes, voici le pseudo code :
Pour indice = 2 jusque nbreligneTableau avec un pas de 1
Si la première contient le mot Tadao
--> colonne d'avant = Tadao
Sinon Si la première contient le mot Aucun ou est vide
--> Si la deuxième contient Boutique
--> colonne d'avant = Boutique
Sinon
--> colonne d'avant = Autres
Fin Si
Sinon
--> Affrétés
Fin Si
Fin Pour
J'aimerais le faire en VBA mais cela ne fonctionne pas, j'ai fais ceci :
Merci d'avance
Je ne suis pas le premier sur ce topic mais je n'arrive pas à y trouver ma réponse.
J'ai 2 colonnes, voici le pseudo code :
Pour indice = 2 jusque nbreligneTableau avec un pas de 1
Si la première contient le mot Tadao
--> colonne d'avant = Tadao
Sinon Si la première contient le mot Aucun ou est vide
--> Si la deuxième contient Boutique
--> colonne d'avant = Boutique
Sinon
--> colonne d'avant = Autres
Fin Si
Sinon
--> Affrétés
Fin Si
Fin Pour
J'aimerais le faire en VBA mais cela ne fonctionne pas, j'ai fais ceci :
VB:
nbreligne = WorksheetFunction.CountA(Columns(3))
For indextab = 2 To nbreligne Step 1
If InStr(Cells(indextab, 8).Value, "Tadao") <> 0 Then
Cells(indextab, 7).Value = "Exploitation"
ElseIf InStr(Cells(indextab, 8).Value, "") <> 0 Or InStr(Cells(indextab, 8).Value, "Aucun") <> 0 Then
If InStr(Cells(indextab, 12).Value, "Boutique") <> 0 Then
Cells(indextab, 7).Value = "Boutique"
Else
Cells(indextab, 7).Value = "Autre"
End If
ElseIf InStr(Cells(indextab, 8).Value, "Tadao") <> 1 And InStr(Cells(indextab, 8).Value, "") <> 1 And InStr(Cells(indextab, 8).Value, "Aucun") <> 1 Then
Cells(indextab, 7).Value = "Affrétés"
Next indextabMerci d'avance