Colonne 1 et 2 correspondent ?

Le
jonquilles
Peut-on inscrire un nom dans la 1ère colonne et un numéro correspondant dans
la 2ième colonne et que si on réinscrit ce même nom quelques cellules plus
bas on ne soit pas obligé de réinscrire le numéro correspondant
Vidéos High-Tech et Jeu Vidéo
Téléchargements
Vos réponses
Gagnez chaque mois un abonnement Premium avec GNT : Inscrivez-vous !
Trier par : date / pertinence
Hervé
Le #17875991
Bonsoir,

Teste ceci, à mettre dans le module de ta feuille :

Private Sub Worksheet_Change(ByVal Target As Range)
Dim Plage As Range
Dim Cel As Range
On Error GoTo Fin
With Target
Set Plage = Range(Cells(1, .Column), _
Cells(.Row - 1, .Column))
Set Cel = Plage.Find(Target.Value, , xlValues)
If Not Cel Is Nothing Then
Target.Offset(0, 1) = Cel.Offset(0, 1)
End If
End With
Fin:
Set Cel = Nothing
Set Plage = Nothing
End Sub

Hervé


"jonquilles" de news:
Peut-on inscrire un nom dans la 1ère colonne et un numéro correspondant
dans
la 2ième colonne et que si on réinscrit ce même nom quelques cellules plus
bas on ne soit pas obligé de réinscrire le numéro correspondant


jonquilles
Le #17882711
Merci beaucoup Hervé d'avoir pris le temps de me répondre mais hônnement je
ne connais vraiment pas ce jargon... Je pense que vous êtes beaucuup trop
avancé pour moi. Merci quand même.






"Hervé" a écrit :

Bonsoir,

Teste ceci, à mettre dans le module de ta feuille :

Private Sub Worksheet_Change(ByVal Target As Range)
Dim Plage As Range
Dim Cel As Range
On Error GoTo Fin
With Target
Set Plage = Range(Cells(1, .Column), _
Cells(.Row - 1, .Column))
Set Cel = Plage.Find(Target.Value, , xlValues)
If Not Cel Is Nothing Then
Target.Offset(0, 1) = Cel.Offset(0, 1)
End If
End With
Fin:
Set Cel = Nothing
Set Plage = Nothing
End Sub

Hervé


"jonquilles" de news:
> Peut-on inscrire un nom dans la 1ère colonne et un numéro correspondant
> dans
> la 2ième colonne et que si on réinscrit ce même nom quelques cellules plus
> bas on ne soit pas obligé de réinscrire le numéro correspondant





Publicité
Poster une réponse
Anonyme