Macro code pour selectionner une cellule

laraviole

XLDnaute Junior
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
 

Pièces jointes

  • Exemple.xls
    24 KB · Affichages: 89
  • Exemple.xls
    24 KB · Affichages: 92
  • Exemple.xls
    24 KB · Affichages: 90

tototiti2008

XLDnaute Barbatruc
Re : Macro code pour selectionner une cellule

Bonjour laraviole, Bonjour PierreJean,

un essai, en retard :

Code:
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
 

Discussions similaires

Réponses
6
Affichages
362

Statistiques des forums

Discussions
311 725
Messages
2 081 949
Membres
101 851
dernier inscrit
vaiata