Recherche dernière cellule d'une ligne sous conditions...

[Vinc]

Bonjour, je récupérer le contenu ou l'adresse de la dernière cellule d'une ligne sous-condition en VBA...

Ma ligne contient des nombres ou des mots, certaines cellules sont vides ou avec ceci : ||

Exemple : (_ = cellule vide)

mot1 ; mot2 ; _ ; mot3 ; 123 ; mot4 ; _ ; || ; _ ; || ; _ ; _ ;

Je souhaite trouver l'adresse et la valeur de la cellule qui est mot4 pour cette exemple.

Fichier joint avec essai en "Fonction" non concluant et essai en VBA avec bug...

...Merci à vous...

 

[phlaurent55]

Re : Recherche dernière cellule d'une ligne sous conditions...

Bonjour Vinc,


avec ce code:

Private Sub CommandButton1_Click()
For n = 16384 To 1 Step -1
If Cells(7, n).Text <> "" And Cells(7, n).Text <> "||" Then
MsgBox ("colonne " & n)
Exit Sub
End If
Next n
End Sub

à+
Philippe

 

[Vinc]

Re : Recherche dernière cellule d'une ligne sous conditions...

Merci phlaurent55...

 

[Vinc]

Re : Recherche dernière cellule d'une ligne sous conditions...

Une dernière question, pourquoi cela ne marche pas quand je marque des Astérix dans le code :

If Cells(LigneActive, n).Text <> "" And Cells(LigneActive, n).Text <> "*||*" Then

Je m'arrête par exemple sur la cellule "Essai ||" alors que je devrais passer outre vu les Astérix ....

 

[julberto]

Re : Recherche dernière cellule d'une ligne sous conditions...

Bonjour Vinc,

Préférer dans ces circonstances l'opérateur "Like" en lieu et place de "=" ou de "<>"

If Cells(LigneActive, n).Text <> "" And Not Cells(LigneActive, n).Text Like "*||*" Then

cordialement

 

[Vinc]

Re : Recherche dernière cellule d'une ligne sous conditions...

Ok merci cela fonctionne...