Ajouter données dans une autre feuille

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.

Citation:

---

Envoyé par GRANOLA42

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:

---

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

---

Citation:

---

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

---

Code:

---

1 2 3

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

---

Citation:

---

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

---

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

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.

Citation:

---

Envoyé par GRANOLA42

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.

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.

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.