Discussion :

[Didpa]

Bonjour

Voilà mon problème du jour et que j'ai ma méthode find qui ne fonctionne pas, pourtant je l'utilise comme cela d'habitude et là non.....

j'ai dans une feuille "Commande" en colonne "A" des adresse de cellules qui sont noter sous la forme: $AIZ$5

J'aimerais quand je me trouve dans une autre feuille "Planning", quand je suis sur une cellule et que je lance ma procédure que celle ci retrouve l'adresse de ma cellule en colonne A de la feuille commande.
J'espère avoir été clair

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
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
Private Sub CB_Modifier2_Click()
 
Comment.CB_Modif.Visible = True
'--------------------------Récupère la Date de la Modification ------------------------
ActiveSheet.Unprotect
 
If ActiveCell.Interior.ColorIndex = xlNone Then
 ActiveCell.UnMerge 'Supprime fusionner les cellules
AD = ActiveCell.Address
 
Worksheets("Commandes").Select
 
    With Sheets("Commandes")
            'Chercher son nom dans la feuille Conso colonne B
            Set c = .Range("A3:A" & .Cells(.Rows.Count, 1).End(xlUp).Row).Find( _
                            What:=AD, _
                            After:=.Range("A3"), _
                            LookIn:=xlValues, _
                            LookAt:=xlWhole, _
                            SearchOrder:=xlByRows, _
                            SearchDirection:=xlNext, _
                            MatchCase:=False)
    Columns(1).Find(AD, , , , , Previous).Select
 
      Comment.Lab_CodeCde = ActiveCell
      Comment.Lab_CodRetCde = ActiveCell.Offset(0, 1)
 
' Date Cde et Retour
    Comment.DTPicker1 = ActiveCell.Offset(0, 2)
    Comment.DTPicker2 = ActiveCell.Offset(0, 3)
 
' Entreprise
    If ActiveCell.Offset(0, 4) = "AGLM" Then
        Comment.OpB_AGLM = True
    Else
        Comment.OpB_ASM = True
    End If
 
' Client
    Comment.TB_Clients = ActiveCell.Offset(0, 5)
    Comment.TB_Ville = ActiveCell.Offset(0, 6)
    Comment.TB_Horaire = ActiveCell.Offset(0, 7)
    Comment.TB_Commentaires = ActiveCell.Offset(0, 8)
 
' Chapiteaux
    Comment.TB3 = ActiveCell.Offset(0, 9)
    Comment.TB4 = ActiveCell.Offset(0, 10)
    Comment.TB5 = ActiveCell.Offset(0, 11)
    Comment.TB6 = ActiveCell.Offset(0, 12)
    Comment.TB_P3x3 = ActiveCell.Offset(0, 13)
    Comment.TB_P3x45 = ActiveCell.Offset(0, 14)
    Comment.TB_P3x6 = ActiveCell.Offset(0, 15)
    Comment.TB_GS = ActiveCell.Offset(0, 16)
    Comment.TB_Hexa = ActiveCell.Offset(0, 17)
 
' Reference Chapiteaux
    Comment.LB_RefChap = ActiveCell.Offset(0, 18)
 End With
 End If
 
Comment.TB_RefChap.Visible = True
Comment.LB_RefChap.Visible = False
Comment.CB_ValiderSansRet.Visible = True
Comment.CB_Valider.Visible = False
Comment.Show
 
End Sub

Cordialement

Didier

[parmi]

Bonjour,

Pourquoi fais-tu 2 Find un à la suite de l'autre ?

Après ceci

Code :

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

1
2
3
4
5
6
7
8
Set c = .Range("A3:A" & .Cells(.Rows.Count, 1).End(xlUp).Row).Find( _
                            What:=AD, _
                            After:=.Range("A3"), _
                            LookIn:=xlValues, _
                            LookAt:=xlWhole, _
                            SearchOrder:=xlByRows, _
                            SearchDirection:=xlNext, _
                            MatchCase:=False)

Mets

Code :

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

Msgbox c.Address

Tu peux donc voir que tu as l'adresse trouvée et que tu peux t'en servir sans faire de Select/Selection... du genre Range("A" & c.Row)

Et, idéalement, tu mets

Code :

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

1
2
3
4
5
If Not c Is Nothing Then
'.... ton code si trouvé
Else
'un message disant "non trouvé" ou autre chose
End If