vérification d'un for/next

Bonjour à tous,

Après un petit moment d'absence, me voilà de retour avec de nouvelles questions.

1) Dans le code ci-dessous je souhaiterais vérifier que si à la fin du for/next il n'a pas réussi à mettre une valeur dans une cellule qu'il y ait une alerte type msgbox.

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 31 32 33

Private Sub NumeroLigne()   Dim ligne As Long Dim myr As Long Dim myv As Long Dim i   Sheets("20 03 2012").Cells.Find("1030", Range("A1"), xlValues, xlWhole).Activate myv = ActiveCell.Columns(ActiveCell.Columns.Count).Column   Sheets("20 03 2012").Cells.Find("1530", Range("A1"), xlValues, xlWhole).Activate myr = ActiveCell.Columns(ActiveCell.Columns.Count).Column   Sheets("20 03 2012").Cells.Find("GC1", Range("A1"), xlValues, xlWhole).Activate ligne = ActiveCell.Row   Range(Cells(ligne, myv), Cells(ligne, myr)).Activate     For i = 1 To 6 If ActiveCell <> "" Then Sheets("20 03 2012").Cells.FindNext(After:=ActiveCell).Activate ligne = ActiveCell.Row Range(Cells(ligne, myv), Cells(ligne, myr)).Activate Else Range(Cells(ligne, myv), Cells(ligne, myr)).Merge ActiveCell = i Exit For End If Next i   End Sub

---

2) comment recherche un critère sur la même ligne qu'une cellule selectionnée et uniquement sur la même ligne?

Merci à vous

Bonjour,
Pour ta question 1, tu pourrais utiliser une variable booléenne
Petit exemple

Code:

---

1 2 3 4 5 6 7 8 9 10

Sub t() Dim Row As Integer Dim flag As Boolean For Row = 1 To 10 If Cells(Row, 1) = "Toto" Then flag = True End If Next If Not (flag) Then MsgBox "Rien trouvé" End Sub

---

Bonjour,
Pour ta question 2, tu ne précises pas ce que tu cherches comme critère.
Voici un exemple de la recherche d'une chaîne de caractères ici "Toto" sur la cellule de la colonne A des lignes 2 à 10 de la feuille active.
Si la valeur de la cellule est égale à cette chaîne, tout les Toto de cette ligne sont remplacé par Tutu.

Code:

---

1 2 3 4 5 6 7 8 9 10

Sub t() Dim Row As Integer Dim flag As Boolean Dim sFind As String: sFind = "Toto" Dim sRepl As String: sRepl = "Tutu" For Row = 1 To 10 If Cells(Row, 1) = sFind Then Rows(Row).Replace What:=sFind, Replacement:=sRepl: flag = True Next If Not (flag) Then MsgBox "Rien trouvé" End Sub

---

Bonjour Corona,

Tout d'abord merci de tes réponses mais je penses que tu as tapé à coté.

Pour le 1) je cherche un code à mettre après le for/next du style if for/next = true then ...

Pour le 2) j'ai un tableau à double entrée et je veux vérifier que le la valeur du début de la ligne sur laquell ce trouve la cellule selectionée est correcte. ce qui equivaut à trouver un "mot" sur la même ligne que la cellule selectionnée.

Bonjour,
Désolé d'avoir "tapé à côté" mais je ne vois pas comment tu pourrais résoudre ton problème autrement que par une variable quelconque qui renverrait une valeur.

Citation:

---

1) Dans le code ci-dessous je souhaiterais vérifier que si à la fin du for/next il n'a pas réussi à mettre une valeur dans une cellule qu'il y ait une alerte type msgbox.

---

Un For to [Step] Next est une boucle, à l'intérieur de laquelle on place du code. C'est tout. Il est impossible de savoir si une ou plusieurs conditions a/ont été remplie(s) sans le coder soi-même.
Pour ta question 2

Citation:

---

Pour le 2) j'ai un tableau à double entrée et je veux vérifier que le la valeur du début de la ligne sur laquell ce trouve la cellule selectionée est correcte. ce qui equivaut à trouver un "mot" sur la même ligne que la cellule selectionnée.

---

Ravi de l'apprendre à l'instant. Je ne déchiffre pas toujours les codes. Il aurait été plus simple de placer cette petite phrase en même temps que la publication de ton code.