Discussion :

[Tobar4]

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.

[COCONUT2]

Je n'ai pas de quoi tester mais j'aurais plutot écrit:

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
Private Sub test()
 
Worksheets("Bilan").Activate
 
Ligne5 = [B:B].Find(Worksheets("Feuil1").Range("AG7"), LookIn:=xlValues).row
Col1 = [2:2].Find(Worksheets("Feuil2").Range("D8"), LookIn:=xlValues).column
 
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, Col1).Activate
 
End If
 
end sub

En fait, j'enregistre directement les valeurs ligne et colonne de la cellule que tu veux activer