Renvoyer une référence relative

K

kjin

XLDnaute Barbatruc

• 15 Juin 2010

• #2

Re : Renvoyer une référence relative

Bonjour,
1 - ta ligne de code dans la nature ne veut strictement rien dire
2 - je n'ai rien compris à la question
3 - tu cherches à priori une valeur dans la première colonne d'une plage nommée

Code:

Dim c As Range
Set c = Range("Table").Columns(1).Cells.Find(Login)
If Not c Is Nothing Then
    MsgBox c.Address 'adresse de la cellule trouvée
    MsgBox c.Row 'ligne de la cellule trouvée
End If

A+
kjin

 

Vote positif 0 Vote négatif

Pierrot93

XLDnaute Barbatruc

• 15 Juin 2010

• #3

Re : Renvoyer une référence relative

Bonjour, GeoTrouvePas, Kjin

peut être une autre solution comme ceci, enfin si j'ai bien compris ta demande :

Code:

MsgBox Application.Match(Login, Range("Table_employes").Columns(1), 0)

bonne journée
@+

 

Vote positif 0 Vote négatif

GeoTrouvePas

XLDnaute Impliqué

• 15 Juin 2010

• #4

Re : Renvoyer une référence relative

kjin à dit:

1 - ta ligne de code dans la nature ne veut strictement rien dire

Cliquez pour agrandir...

Ben si, ça me cherche la valeur "Login" dans la plage "Table" et ça me renvoi son numéro de ligne. Je viens cependant de remarquer que .cells ne servait à rien.

kjin à dit:

2 - je n'ai rien compris à la question

Cliquez pour agrandir...

Franchement désolé si je me suis mal exprimé. J'ai tenté de simplifier à fond mon cas et d'être le plus synthétique possible. J'ai sans doute fini par le rendre confus.

Donc pour être plus clair et éviter une nouvelle incompréhension, voici un fichier exemple en pièce jointe.

Je voudrais connaître le code à mettre derrière mon bouton "Valider" pour remplacer l'ancien mot de passe relatif au service choisi dans le userform par le nouveau mot de passe qui vient d'être saisi dans le userform.

Je précise que j'aimerai bien que ce code fonctionne même si on déplace la plage "Table" (verticalement ou horizontalement)

Merci d'avance de votre aide.

 

Pièces jointes

• exemple.xls

  24 KB · Affichages: 68
• exemple.xls

  24 KB · Affichages: 63
• exemple.xls

  24 KB · Affichages: 60

Vote positif 0 Vote négatif

Pierrot93

XLDnaute Barbatruc

• 15 Juin 2010

• #5

Re : Renvoyer une référence relative

Re

pas sûr que tu ais vu mon post de 10h34...

 

Vote positif 0 Vote négatif

GeoTrouvePas

XLDnaute Impliqué

• 15 Juin 2010

• #6

Re : Renvoyer une référence relative

Mais euh !
T'arrête d'écrire en même temps que moi ! ^^

C'est ça de commencer un post et de le finir une heure plus tard ^^
Merci beaucoup pour ta réponse, ça marche impeccable.
Juste pour ma "culture perso", la fonction "match" correspond à quelle formule excel ?

Il est presque midi alors "Bon Apétit" ^^

 

Vote positif 0 Vote négatif

K

kjin

XLDnaute Barbatruc

• 15 Juin 2010

• #7

Re : Renvoyer une référence relative

Re, bonjour Pierrot 🙂,
Dans la nature voulait dire dans ce fil et sans exemple...
Il me semble que tu compliques un peu non ? Si tu as plusieurs services qui ont le même nom tu risques qq soucis non ? Alors pourquoi chercher des doublons juste pour faire la modif (et non pour ajouter un service) ?

Code:

Private Sub CommandButton1_Click()
If ComboBox1.ListIndex = -1 Then Exit Sub
If TextBox1 = "" Then Exit Sub
With Sheets("Tables")
    .Range("Table")(ComboBox1.ListIndex + 1, 4) = TextBox1
End With

End Sub

Private Sub UserForm_Initialize()
With Sheets("Tables")
    ComboBox1.List = .Range("Table").Columns(1).Value
End With

End Sub

A mettre dans le userform évidemment, et non dans la nature
A+
kjin

 

Vote positif 0 Vote négatif

Pierrot93

XLDnaute Barbatruc

• 15 Juin 2010

• #8

Re : Renvoyer une référence relative

Re,

"Application.Match" correspondant à la fonction excel "EQUIV"...

bon après midi
@+

 

Vote positif 0 Vote négatif

GeoTrouvePas

XLDnaute Impliqué

• 15 Juin 2010

• #9

Re : Renvoyer une référence relative

Ok merci beaucoup !

Bonne après midi à toi aussi !

 

Vote positif 0 Vote négatif

GeoTrouvePas

XLDnaute Impliqué

• 15 Juin 2010

• #10

Re : Renvoyer une référence relative

Désolé Kjin, j'avais pas vu ton dernier post.

Merci pour ta soluce bien plus simple que ce que j'avais envisagé et pour l'humour qui va avec 😛

Ma solution était en effet relativement compliquée mais vu que je suis pas encore arrivé dans les fonctions les plus complexes de mon projet, j'ai préféré chercher une solution que je pourrais adapter à des cas plus compliqués sans avoir à vous redéranger une nouvelle fois.

Quant aux doublons, il n'y en avait pas dans le petit exemple que j'ai rapidement concocté mais je risque d'en avoir dans d'autres tables. Ma procédure de chargement du combobox tient donc compte de cette éventualité. Mais ça va pas m'empêcher d'utiliser ta proposition pour le cas présent.

Merci à toi tout comme à Pierrot et bonne après midi !

 

Vote positif 0 Vote négatif