Discussion :

[GRANOLA42]

bonjour,

J'ai un fichier excel dans lequel j'ai deux onglets : PRODUITS en feuille1 et BDD en feuille2.
Dans la feuille 1 j'ai des colonnes allant de A à M, dans la feuille 2 j'ai des colonnes allant de A à D.
Je voudrais copier/coller les cellules C.D.E.F de la feuille 1 dans les cellules A.B.C.D de la feuille 2 avec un bouton "AJOUT"
Je voudrais qu'un "point" s'inscrive dans la cellule A de la feuille 2 si le chiffre est inférieur à 100.

Si un fichier peut aider, je peux joindre une partie de ce fichier.

merci pour votre aide à venir.

[Menhir]

Dans la feuille 1 j'ai des colonnes allant de A à M, dans la feuille 2 j'ai des colonnes allant de A à D.
Je voudrais copier/coller les cellules C.D.E.F de la feuille 1 dans les cellules A.B.C.D de la feuille 2 avec un bouton "AJOUT"

En supposant que ce sont les données de la ligne sélectionnée que tu veux copier.

Code :

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

Worksheets("feuil1").Range("C" & Selection.Row & ":F" & Selection.Row).Copy Worksheets("feuil2").Cells(Rows.Count , "A").End(xlUp).Offset(1, 0)

Je voudrais qu'un "point" s'inscrive dans la cellule A de la feuille 2 si le chiffre est inférieur à 100.

Code :

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

1
2
3
With Worksheets("feuil2").Cells(Rows.Count , "A").End(xlUp)
    If .Value < 100 Then .Value = "."
End With

Si un fichier peut aider, je peux joindre une partie de ce fichier.

C'est ça...
Et si tu fournis une tasse, on doit te servir le café ?

[GRANOLA42]

bonjour

Celà ne marche pas chez moi, j'ai un retour d'erreur "erreur d'exécution 9 : l'indice n'appartient pas à la sélection.

dommage.

[Menhir]

Celà ne marche pas chez moi, j'ai un retour d'erreur "erreur d'exécution 9 : l'indice n'appartient pas à la sélection.

Premièrement, tu pourrais dire ce qui "ne marche pas" étant donné que dans ma réponse se trouvent plusieurs lignes de code.
Deuxièmement, tu pourrais montrer de quelle façon tu l'as adapté à ton cas.

Si c'est de la première ligne de code qu'il s'agit, je suis prêt à parier que tu n'as pas mis les bons noms d'onglets dans les Worksheet.

[GRANOLA42]

j'ai créé un bouton sur ma feuil1, je lui ai affecté une macro, et j'ai collé ton code à ce bouton.

Et dans le code j'ai mis dans "worksheets" mes noms de feuilles (feuil1 et feuil2).....J'ai même interverti les noms de feuilles au cas où mais j'ai toujours mon message d'erreur.

[GRANOLA42]

Après deux petites modif' ton code fonctionne......
J'ai juste remplacer les "feuil1" et "feuil2" par le nom des feuilles et celà fonctionne.
encore merci pour ton aide.