recuperer les num de la ligne en fonction des nom prenom

Question

Bonjour, 






je souhaite creer un programme qui me permettra d'effectuer les taches suivantes :

-dans les cellules du cercle 5 je vais enregistrer manuellement des noms et prenoms qui peuvent etre change et remplacer a n'import quel moment (on va rajouter des nom prenom et on va aussi supprimer)

-dans le cercle 4 on trouve les numeros de chaque ligne enregistrer aussi manullement 

- maintenant je veux creer un bouton qui va me permettre de :

si j'enregistre un nom prenom dans qlqonc ligne du cercle 1  (colonne A) (qui se trouve bien sur dans le cercle 5  colonne C ) mon programme va me chercher ce nom et prenom dans le cercle 5 (colonne C) et vas recuperer le numero de sa ligne (colonne B cercle 4) et le renvoyer a la ligne ou j'enregistre le nom prenom dans le cercle 2 (colonne B)

exemple :

-si je enregistre "Jerome CRIBIER " dans cellule A2 (qui se trouve a la cellule C29)  , la cellule B2 va prendre le numero 6

un autre exemple 

-si je enregistre "Jerome CRIBIER " dans la cellule A8  , la cellule B8 va prendre le numero 6

pour quoi numero 6 ? par ce que la ligne ou enregister  "Jerome CRIBIER " dans le cercle 4 (cellule B29) est de 6 

ainsi de suit pour tout les noms et prenom 

 PS : sachant que je vais ajouter des nouveau nom prenom et retirer aussi 


je ne sais pas si c possible mais c serais vraiment tres gentille de votre part de maider dans mon projet de fin d'etude 

je vous remerci 

ps : si limage que j'ai partage ne se voit pas laisser moi un commentaire pour que je vous lenvoie par mail si vous voulez

merci encore

jordane45 · Answer

Bonjour,

Visiblement.. pour ce que tu demandes.. pas besoin de code vba ....
Une simple formule INDEX/EQUIV suffirait...

En B1 :
=INDEX(B$24:C$40;EQUIV(A2;C$24:C$40;0);1) 
Formule à étirer vers le bas...

Bien entendu.. si tu ajoutes des noms dans ton cercle 5... il faudra adapter les plages de cellules
par exemple, avec 10 noms en plus : 
B$24:C$50
C$24:C$50

blalaa · Answer

re 

je suis un debutant alors si vous pouvez maider ca serait vraiment gentil , 

ce que j'ai fait moi c de recuperer les numero de la ligne et les renvoyer a des cellule specifiee (en dure ) par ce que moi j'ai cru que les noms prenom qui sont enregistre dans la colonne A son fixe dans ces cases la 

mais apparement mon tuteur veut que des que il met un nom prenom dans la colonne A le code cherchera le num de la ligne ou enregsitrer dans la colonne C 

voici le code que j'ai utiliser moi

Sub nn()

Dim DerLin As Integer
Dim i As Integer, j As Integer, k As Integer, l As Integer, m As Integer, n As Integer, o As Integer

Dim L1 As Integer, L2 As Integer, L3 As Integer, L4 As Integer, L5 As Integer, L6 As Integer, L7 As Integer

DerLin = Worksheets("Recup_absences").Range("C" & "65536").End(xlUp).Row

'renvoyer a Range("b2")le numero de la ligne ou se trouve bonvalet quentin
L1 = 0

For i = 24 To DerLin
    If Range("C" & i).Value = "BONVALET Quentin" Then
        L1 = i
        Exit For
    End If
Next

Range("b2") = L1 - 23

''renvoyer a Range("b3")le numero de la ligne ou se trouve  CHRISTEN Arnaud
L2 = 0

For j = 24 To DerLin
    If Range("C" & j).Value = "CHRISTEN Arnaud" Then
        L2 = j
        Exit For
    End If
Next

Range("b3") = L2 - 23

''renvoyer a Range("b4")le numero de la ligne ou se trouve  JACQUIOT Fabien
L3 = 0

For k = 24 To DerLin
    If Range("C" & k).Value = "JACQUIOT Fabien" Then
        L3 = k
        Exit For
    End If
Next

Range("b4") = L3 - 23

''renvoyer a Range("b5")le numero de la ligne ou se trouve  BRUNE Guillaume
L4 = 0

For l = 24 To DerLin
    If Range("C" & l).Value = "BRUNE Guillaume" Then
        L4 = l
        Exit For
    End If
Next

Range("b5") = L4 - 23

'renvoyer a Range("b6")le numero de la ligne ou se trouve  Thibault KERNIN
L5 = 0

For m = 24 To DerLin
    If Range("C" & m).Value = "Thibault KERNIN" Then
        L5 = m
        Exit For
    End If
Next

Range("b6") = L5 - 23

''renvoyer a Range("b7")le numero de la ligne ou se trouve  Jerome CRIBIER
L6 = 0

For n = 24 To DerLin

If Range("C" & n).Value = "Jerome CRIBIER" Then
        L6 = n
        Exit For
    End If
Next

Range("b7") = L6 - 23

''renvoyer a Range("b9")le numero de la ligne ou se trouve  Jerome CRIBIER
L7 = 0

For o = 24 To DerLin
    If Range("C" & o).Value = "Valentin BENRAMDANE" Then
        L7 = o
        Exit For
    End If
Next

Range("b9") = L7 - 23

End Sub

EDIT : Ajout des balises de code

Recuperer les num de la ligne en fonction des nom prenom

2 réponses

EDIT : Ajout des balises de code

Votre réponse

Discussions similaires

Newsletters