Problème selection de cellule
Bonjour à tous,
J'ai rédigé un petit bout de code qui me permet de trouver une colonne et une ligne dans un tableau, et d'y écrire une information. Le problème, c'est que ca ne marche pas.
Code:
1 2 3 4 5 6 7 8 9 10 11 12 13 14 15
| Worksheets("Bilan").Activate
Dim Ligne5 As Range, Col1 As Range, rep As Long
Set Ligne5 = [B:B].Find(Worksheets("Feuil1").Range("AG7"), LookIn:=xlValues)
Set Col1 = [2:2].Find(Worksheets("Feuil2").Range("D8"), LookIn:=xlValues)
If (Worksheets("Feuil1").Range("AG7")) Is Nothing Or (Worksheets("Feuil2").Range("D8")) Is Nothing Then
rep = MsgBox("Erreur" & (Worksheets("Feuil2").Range("D8")) & (Worksheets("Feuil1").Range("AG7")), vbOKOnly & vbCritical, "Erreur")
Else
Worksheets("Bilan").Range(Ligne5.Row, Col1.Column).Activate
End If |
Seule la dernière ligne ne marche pas, j'ai tout essayé, sauf la bonne solution ! :cry:
Merci par avance,
Tobar4.