Discussion :

[tmaha]

bonjour j'ai besoin d'aide s'il vous plait en fait j'ai un classeur contenant 2 feuille qui sont feuil1 et feuil2
extrait de feuil1
A B C
nummat nom qte
boo1 marteau 120
boo2 melle 200
boo3 porte 15
boo4 fenetre 620
boo5 ecrou 785
feuils 2 et vides mais les colonnes correspondent
extrait feuil2
AA B C
nummat nom qte
donc ma question je dois rensigner feuil2 en fonction de feuil1 c'est a dire
si je copie une cellule de feuil1 A1 par exemple des que je la colle n'importe ou dans la colonne A de feuil2 je veux voir apparaitre automatiquement la qantite corresponddante dans la colonne C de feuil2 sachant que je peux la collée plusieurs fois
merci

[Qwazerty]

Salut
Je pense que tu devrais expliquer un peu plus ce que tu veux faire, par ce que ce que tu cherches a faire ne sera pas "simple", un exemple de difficulté que tu aura a gérer:
Visiblement tu as plusieurs colonne renseignées et tu souhaites copier une cellule et au moment de la coller que toutes les autres infos de ta ligne suivent, mais vas tu toujours copier la cellule dans la même colonne et la coller forcement dans la bonne colonne de la 2ème feuille.
Je m'explique:
Tu copie la cellule ligne 3 colonne 2
maintenant tu colles en ligne 4 et colonne 3, comment savoir qu'il faut aller chercher la valeur en colonne 2 et non en 3...

A mon avis il serait préférable de créer un bouton( soit sur la feuille, soit dans le menu directement) avec une macro associée qui copie la ligne active et la colle en feuille 2. Je ne connais pas ton expérience en vba mais le mieux serait de commencer avec des tutoriels.

a++
Qwaz

[Qwazerty]

Salut
Aux vues des modif apporté a ton poste, je te proposerais un truc comme ca qui me parait plus simple

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
 
If Not Intersect(Target, Columns("A")) Is Nothing Then 'si la cellule opu on double clique se trouve dans la colonne A de la feuil
    'On recherche la 1ere ligne vide en colonne A de la feuille 2
    With Sheets("Feuil2").Cells(Rows.Count, "A").End(xlUp).Offset(1, 0)
        .Value = Target.Value 'On copie la valeur de la cellule colonne A feuille en cours dans cellule colonne A feuil2
        .Offset(0, 1) = Target.Offset(0, 1) 'idem pour colonne B (l'offset permet de ce decaler de x ligne et y colonne, ici on se décale d'une colonne)
        .Offset(0, 2) = Target.Offset(0, 2) 'idem en se décalant de 2 colonne (C)
    End With
    'Annul le double clique sur la cellule afin de ne par rentrée en mode edition de cette meme cellule
    Cancel = True
End If
 
 
End Sub

Pour utiliser ce code, va dans VBA (menu Outils->Macro->Visual Basic Editor)
Sur la partie a gauche tu dois retrouver ton classeur avec toute les feuilles qu'il contient
DoubleClick sur ta feuille ou se trouvent les données (feuil1)
Dans la partie de droite doit s'ouvrir une fenetre, dans celle ci en partie haute tu trouveras 2 listes déroulantes.
Dans la 1er liste tu choisis "WorkSheet" et dans la seconde "BeforeDoubleClick"
Tu vas alors retrouver sur la partie basse ce code

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
 
End Sub

Il te suffit alors de compléter avec le code que je t'ai fourni plus haut
Ce code ne réalise pas exactement ce que tu voulais, mais je pense qu'il évite d'avoir a faire une usine a gaz.
Lorsque tu double clique sur un article en colonne A de ta feuil1 les données se déversent directement en feuil2 a la suite des éléments existant déjà.
A++
Qwaz