Bonjour,

Je suis une truffe en VBA cependant j'aime le faire. je vous appelle à l'aide car plus j'avance dans ma macro plus j'ai l'impression de couler. J'aimerai que sous condition d'une valeur dans la colonne L, le programme me récupére la valeur de la cellule I pour lancer une macro. Mais voilà, je crois pas qu'on se comprenne tous les deux car cette condition doit s'appliquer sur toutes les cellules de I et L. Je vous place mon programme

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
34
35
36
37
38
39
40
41
42
43
44
45
46
47
Sub CommandButton1_Click()
Dim Cell As Range
Dim lig As Long
Dim col, bat As String
Dim NbrLig As Long
Dim NumLig As Long
 
 
Sheets("ARCHIVE").Activate
col = "L" ' colonne données non vides à tester'
 
NumLig = 1 'le N° de la 1er ligne de données en comptant la ligne 1 = 0
'Sélectionne l'onglet nouvel arrivant
With Sheets("ARCHIVE") 'feuille source'
NbrLig = .Cells(65536, col).End(xlUp).Row
 
For lig = 2 To NbrLig 'n° de la 1ere ligne de données'
 
Do While .Cells(lig, col).Value <> ""
 
'    If  Then 'si la valeur de la cellule L est non vide
'End If
'For Each Cell In Range("i2:i150") ' il reste sur la colonne I sans vérifier que la colonne L est vide ou pas  premiere condition et lance toutes les macros
 
	   If Cell.Value = "LIMOGES" Then 'ou activecell.offset(0,-4).value
 
            Call LIMOGES
End If
 
           If Cell.Value = "MARSEILLE" Then
            Call MARSEILLE
End If
             If Cell.Value = "PARIS" Then
            Call PARIS
End If
            If Cell.Value = "LONDRES" Then
            Call LONDRES
End If
 
 
exit do
'Next
Loop
Next
End With
 
End Sub
Merci pour vos conseils
Draki