Logo GNT
Actualités Tests & Guides Bons Plans
GTA 6 iPhone 17 Copilot Switch 2 Temu ChatGPT Tesla
OVH Cloud OVH Cloud
Entraide Applications Microsoft Office Excel recherche et copie

recherche et copie

3 réponses
Avatar
ptck
Bonjour
Si vous avez une idée pour mon problème ci dessous,

Dans une feuille (base) un tableau de 4 colonnes- a,b,c,d.- qui peut
varier en longueur. En colonne A j'ai des Réf.
sur une autre feuille (calcul) un tableau de 5 colonne avec des formules(1
avec les Réf, 4 avec des formules)
je voudrai lorsque j'ai une nouvelle réf dans la feuille (base), l'insèrer
dans le tableau de la feuille (calcul) avec recopie des formules de la ligne
du dessus (donc des 4 cellules qui ont des formules).

précision: dans le tableau base je peux avoir plusieur fois une même réf
mais il suffit que la première trouvée ne soit pas dans le tableau calcul
pour l'insérer.

comme j'ai plusieurs tableaux dans la même feuille (calcul) je pourrai
adapter cette macro pour chaqu'un.

Ps: chaque tableau de la feuille "calcul" va grandir d'une ligne à chaque
nouvelle Réf

merci par avance
Signaler un problème avec ce contenu

3 réponses

Supprimer
Cette action est irreversible, confirmez la suppression du commentaire ?
Signaler le commentaire

Veuillez sélectionner un problème

Nudité
Violence
Harcèlement
Fraude
Vente illégale
Discours haineux
Terrorisme
Autre
Avatar
Daniel
Bonjour.
Mets le code suivant dans la feuille base :

Private Sub Worksheet_Change(ByVal Target As Range)
Dim Ligne As Long
If Target.Count > 1 Then Exit Sub
If Target.Column <> 1 Then Exit Sub
Ligne = Sheets("calcul").Range("A65536").End(xlUp).Row + 1
Target.Copy Sheets("calcul").Range("A" & Ligne)
Sheets("calcul").Range("A" & Ligne).Offset(-1, 1).Resize(1, 4).Copy _
Sheets("calcul").Range("A" & Ligne).Offset(0, 1)
End Sub

Cordialement.
Daniel
"ptck" a écrit dans le message de news:

Bonjour
Si vous avez une idée pour mon problème ci dessous,

Dans une feuille (base) un tableau de 4 colonnes- a,b,c,d.- qui peut
varier en longueur. En colonne A j'ai des Réf.
sur une autre feuille (calcul) un tableau de 5 colonne avec des
formules(1 avec les Réf, 4 avec des formules)
je voudrai lorsque j'ai une nouvelle réf dans la feuille (base), l'insèrer
dans le tableau de la feuille (calcul) avec recopie des formules de la
ligne du dessus (donc des 4 cellules qui ont des formules).

précision: dans le tableau base je peux avoir plusieur fois une même réf
mais il suffit que la première trouvée ne soit pas dans le tableau calcul
pour l'insérer.

comme j'ai plusieurs tableaux dans la même feuille (calcul) je pourrai
adapter cette macro pour chaqu'un.

Ps: chaque tableau de la feuille "calcul" va grandir d'une ligne à chaque
nouvelle Réf

merci par avance



Avatar
ptck
bonjour
dans la feuille base je fais : clic droit visualiser le code je copie la
macro ci-dessous mais quand je veux la lancer çà me
demande le nom de la macro.
merci de votre aide


"Daniel" a écrit dans le message de news:
%
Bonjour.
Mets le code suivant dans la feuille base :

Private Sub Worksheet_Change(ByVal Target As Range)
Dim Ligne As Long
If Target.Count > 1 Then Exit Sub
If Target.Column <> 1 Then Exit Sub
Ligne = Sheets("calcul").Range("A65536").End(xlUp).Row + 1
Target.Copy Sheets("calcul").Range("A" & Ligne)
Sheets("calcul").Range("A" & Ligne).Offset(-1, 1).Resize(1, 4).Copy _
Sheets("calcul").Range("A" & Ligne).Offset(0, 1)
End Sub

Cordialement.
Daniel
"ptck" a écrit dans le message de news:

Bonjour
Si vous avez une idée pour mon problème ci dessous,

Dans une feuille (base) un tableau de 4 colonnes- a,b,c,d.- qui peut
varier en longueur. En colonne A j'ai des Réf.
sur une autre feuille (calcul) un tableau de 5 colonne avec des
formules(1 avec les Réf, 4 avec des formules)
je voudrai lorsque j'ai une nouvelle réf dans la feuille (base),
l'insèrer dans le tableau de la feuille (calcul) avec recopie des
formules de la ligne du dessus (donc des 4 cellules qui ont des
formules).

précision: dans le tableau base je peux avoir plusieur fois une même réf
mais il suffit que la première trouvée ne soit pas dans le tableau calcul
pour l'insérer.

comme j'ai plusieurs tableaux dans la même feuille (calcul) je pourrai
adapter cette macro pour chaqu'un.

Ps: chaque tableau de la feuille "calcul" va grandir d'une ligne à chaque
nouvelle Réf

merci par avance







Avatar
Daniel
La macro se déclenche automatiquement lors d'un ajout ou modification en
colonne A.
Daniel
"ptck" a écrit dans le message de news:

bonjour
dans la feuille base je fais : clic droit visualiser le code je copie la
macro ci-dessous mais quand je veux la lancer çà me
demande le nom de la macro.
merci de votre aide


"Daniel" a écrit dans le message de news:
%
Bonjour.
Mets le code suivant dans la feuille base :

Private Sub Worksheet_Change(ByVal Target As Range)
Dim Ligne As Long
If Target.Count > 1 Then Exit Sub
If Target.Column <> 1 Then Exit Sub
Ligne = Sheets("calcul").Range("A65536").End(xlUp).Row + 1
Target.Copy Sheets("calcul").Range("A" & Ligne)
Sheets("calcul").Range("A" & Ligne).Offset(-1, 1).Resize(1, 4).Copy _
Sheets("calcul").Range("A" & Ligne).Offset(0, 1)
End Sub

Cordialement.
Daniel
"ptck" a écrit dans le message de news:

Bonjour
Si vous avez une idée pour mon problème ci dessous,

Dans une feuille (base) un tableau de 4 colonnes- a,b,c,d.- qui peut
varier en longueur. En colonne A j'ai des Réf.
sur une autre feuille (calcul) un tableau de 5 colonne avec des
formules(1 avec les Réf, 4 avec des formules)
je voudrai lorsque j'ai une nouvelle réf dans la feuille (base),
l'insèrer dans le tableau de la feuille (calcul) avec recopie des
formules de la ligne du dessus (donc des 4 cellules qui ont des
formules).

précision: dans le tableau base je peux avoir plusieur fois une même réf
mais il suffit que la première trouvée ne soit pas dans le tableau
calcul pour l'insérer.

comme j'ai plusieurs tableaux dans la même feuille (calcul) je pourrai
adapter cette macro pour chaqu'un.

Ps: chaque tableau de la feuille "calcul" va grandir d'une ligne à
chaque nouvelle Réf

merci par avance