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 : Sélectionner tout - Visualiser dans une fenêtre à part
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 !

Merci par avance,

Tobar4.