Discussion :

[gigalia]

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 :

Sélectionner tout - Visualiser dans une fenêtre à part

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

[Philippe Tulliez]

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

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

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 :

Sélectionner tout - Visualiser dans une fenêtre à part

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

[gigalia]

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.

[Philippe Tulliez]

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.

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

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.