Macro code pour selectionner une cellule

[laraviole]

Bonjour le Forum,
Je fais une nouvelle fois appel à vos compétences. Je voudrais savoir si un code permet depuis une feuille excel en concaténant le mois et un code d'identification se positionner dans la base de données en recherchant cette concaténation dans une colonne et se positionner dans la cellule vide juste à coté pour coller des info. Je vous joins un petit exemple .
Merci pour tout
Cordialement

 

[pierrejean]

Re : Macro code pour selectionner une cellule

bonjour laraviole

Vois si cela te convient

 

[tototiti2008]

Re : Macro code pour selectionner une cellule

Bonjour laraviole, Bonjour PierreJean,

un essai, en retard :

Sub Essai()
Dim Code As String, DerLigne As Long, Ligne As Long
    With ThisWorkbook.Worksheets("Formulaire")
        Code = .Range("B5").Value & .Range("D5").Value
    End With
    With ThisWorkbook.Worksheets("Données")
        DerLigne = .Range("C65536").End(xlUp).Row
        If Application.WorksheetFunction.CountIf(.Range("C2:C" & DerLigne), Code) > 0 Then
            .Activate
            Ligne = Application.WorksheetFunction.Match(Code, .Range("C2:C" & DerLigne), 0)
            .Range("D" & Ligne + 1).Select
        End If
    End With
End Sub

 

[laraviole]

Re : Macro code pour selectionner une cellule

Bonjour Pierrejean et tototiti2008
vous êtes génial, merci pour votre aide
Cordialement
Laraviole

 

[tototiti2008]

Re : Macro code pour selectionner une cellule

Re,

modestie mise à part, je dirais même que nous sommes géniaux 😉