Copier avec condition et coller avec condition

pierrejean

XLDnaute Barbatruc

• 7 Avril 2017

• #2

Bonjour Florian

A tester:

 

Pièces jointes

• Essai.xlsm

  29.6 KB · Affichages: 27

Vote positif 0 Vote négatif

F

Florian53

XLDnaute Impliqué

• 10 Avril 2017

• #3

Merci PierreJean, sa fonctionne parfaitement.

Est ce qu'il serait possible d'ajouter une confirmation avec un " Oui " et un "Non" si des données ont déjà été validés dans le tableau .

En gros si des informations sont déjà présentes dans le tableau à l'endroit " x " , demander une confirmation de validation ?

Merci

 

Vote positif 0 Vote négatif

pierrejean

XLDnaute Barbatruc

• 10 Avril 2017

• #4

Re

Vois si j'ai bien compris

 

Pièces jointes

• Essai.xlsm

  30.6 KB · Affichages: 29

Vote positif 0 Vote négatif

F

Florian53

XLDnaute Impliqué

• 10 Avril 2017

• #5

Super Merci PierreJean, quelle efficacité !!!

Une dernière demande que j'ai oublié de faire est ce possible, de pouvoir faire de la consultation en même temps ?

Je m’explique :

Lors du changement de la valeur " x " via la liste de choix peut-on coller les valeurs du tableau de la feuille " Données" dans les cellules correspondantes de la "Feuil1" afin de faire de la consultation ou de la modification?

Cordialement

 

Vote positif 0 Vote négatif

F

Florian53

XLDnaute Impliqué

• 11 Avril 2017

• #6

est ce que quelqu'un aurait une idée ?

 

Vote positif 0 Vote négatif

F

Florian53

XLDnaute Impliqué

• 12 Avril 2017

• #7

un p'tit up

 

Vote positif 0 Vote négatif

F

Florian53

XLDnaute Impliqué

• 12 Avril 2017

• #8

Bonjour,

J'ai essayé avec l’enregistreur:

Code:

Private Sub Worksheet_Change(ByVal Target As Range)

If Target.Address = Range("E37").Address Then

Range("F27") = _
        "=VLOOKUP(R[-3]C[-1],DONNEE!R[57]C[-2]:R[108]C[-1],2,FALSE)"
End If
End Sub

Mais je voudrais que si il n'y aucune valeur, sa affiche rien car en ce moment il m'affiche "0"

 

Vote positif 0 Vote négatif