Microsoft 365 Détecter si une cellule contient un mot ou vide

Fabinou62

XLDnaute Occasionnel
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 :
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 indextab

Merci d'avance :)
 

Fabinou62

XLDnaute Occasionnel
C'est bon !!
Je devais remplacer :
VB:
 ElseIf InStr(Cells(indextab, 8).Value, "") <> 0  Or InStr(Cells(indextab, 8).Value, "Aucun") <> 0 Then
par
Code:
 ElseIf InStr(Cells(indextab, 8).Value, "") <> 1  Or InStr(Cells(indextab, 8).Value, "Aucun") <> 0 Then

(1 au lieu de 0)
 

Discussions similaires

Réponses
17
Affichages
250

Statistiques des forums

Discussions
311 721
Messages
2 081 927
Membres
101 842
dernier inscrit
seb0390