Macro pour coller le résultat d'une liste validation dans une autre colonne...

[Christian0258]

Bonjour à tout le forum,

Je souhaiterais votre aide pour une macro qui devra coller, dans la même feuille, le choix d'une de validation et...

voir fichier

Je vous remercie, par avance, pour le temps que vous voudrez bien m'accorder.

Bien amicalement,
Christian.

 

[laurent950]

Re : Macro pour coller le résultat d'une liste validation dans une autre colonne...

Bonsoir,

Je pense avoir trouver une solution.

Volie c'est comme vous avez dit.

je joins le fichier au plaisir de vous lire

laurent

 

[Christian0258]

Re : Macro pour coller le résultat d'une liste validation dans une autre colonne...

Re, le forum, Laurent,

Merci, Laurent, pour ton travail.
C'est impec, je te remercie à nouveau.

J'aurai, toutefois, encore besoin de vos lumières sur une demande, voir nouveau fichier ci-joint...

Bien à toi,
Christian

 

[Christian0258]

Re : Macro pour coller le résultat d'une liste validation dans une autre colonne...

Re, le forum,

Personne pour jeter un oeil sur mon fichier...lol

Bien à vous,

Christian

 

[JCGL]

Re : Macro pour coller le résultat d'une liste validation dans une autre colonne...

Bonjour à tous,
Salut Christian,

Dans le code la feuille "SAISIR ETIQUETTES" :

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
If Not Intersect([r3:r42], Target) Is Nothing Then UserForm4.Show

If Not Intersect([F3:F42], Target) Is Nothing Then
fin = Range("F65536").End(xlUp).Row
For Each c In Range(Cells(3, 6), Cells(fin, 6))
If Range(c.Address).Offset(, 4) = Empty Then Range(c.Address).Offset(, 4) = 1
Next c
End If
End Sub

A++
A + à tous

 

[Christian0258]

Re : Macro pour coller le résultat d'une liste validation dans une autre colonne...

Re, le forum, Laurent, JCGL

Merci l'ami Jean-Claude, l'ensemble fonctionne parfaitement.
Merci également à Laurent.

Pourriez-vous me dire comment modifier et intégrer cette macro
voir fichier (dernière version)


Bien à vous.
Christian

 

[Christian0258]

Re : Macro pour coller le résultat d'une liste validation dans une autre colonne...

Re, le forum,

Je reviens vers vous, une dernière fois promis, pour jeter un oeil dans le fichier ci-dessus ...adapter et intégrer une macro

Je suis conscient, du dérangement que je vous occasionne.
Merci pour le temps que vous voudrez bien m'accorder.

Bien à vous,
Christian

 

[JCGL]

Re : Macro pour coller le résultat d'une liste validation dans une autre colonne...

Bonjour à tous,
Salut Christian,

Peux-tu essayer ceci dans le code de la feuille :

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
If Not Intersect([R3:R42], Target) Is Nothing Then UserForm4.Show

If Not Intersect([F3:F42], Target) Is Nothing Then
Fin = Range("F65536").End(xlUp).Row
For Each c In Range(Cells(3, 6), Cells(Fin, 6))
ActiveCell.Value = Cells(Target.Row - 1, Target.Column).Value
If Range(c.Address).Offset(, 4) = Empty Then Range(c.Address).Offset(, 4) = 1
Next c
End If
End Sub

A++ l'ami
A + à tous

 

[Christian0258]

Re : Macro pour coller le résultat d'une liste validation dans une autre colonne...

Re, le forum, JCGL,

Un grand merci à toi, cher collègue, Jean-Claude.

Dis-moi, que faut-il ajouter à ta macro (sur la dernière modif ;recopie plat du dessus) pour que le chiffre 1
s'inscrive également en Col J.

à vous lire.

Bien à vous,
Christian

 

[JCGL]

Re : Macro pour coller le résultat d'une liste validation dans une autre colonne...

Bonjour à tous,
Salut Christian,

Euh... Rien... C'est déjà le cas... En tous cas chez moi.

A++
A + à tous

 

[Christian0258]

Re : Macro pour coller le résultat d'une liste validation dans une autre colonne...

Re, le forum, Jean-Claude,

Bonjour à tous,

Après nouveaux essais, chez moi, il faut deux actions pour placer le 1 en Col J....

Peux-tu me dire.

voir fichier

Merci Jean-Claude pour tout,
Christian

 

[JCGL]

Re : Macro pour coller le résultat d'une liste validation dans une autre colonne...

Bonjour à tous,
Salut Christian,

Tant que tu n'as pas quitté la cellule, il n'y a pas d'action... repérable par le _SelectionChange.
Mais quand tu rentres une nouvelle donnée en F, le 1 est bien placé en J dans les cellules vides.

A++
A + à tous

 

[Christian0258]

Re : Macro pour coller le résultat d'une liste validation dans une autre colonne...

Re, le forum, Jean-Claude,

Ok, Jean-Claude, autant pour moi.
Un grand merci.

Bien à toi,
Christian