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 Insérer ligne par critère?

Insérer ligne par critère?

5 réponses
Avatar
José Carapito
Bonsoir à tous,

Je demande votre aide pour ce petit gros problème :P
Comment insérer des lignes avec macro ayant cet exemple:
A1="Numéro Facture", A2="Quantité", A3="Paquet";
A2= "FC1", B2="500", C2="100", avec macro ici, ça devrait me rajouter 5
lignes au dessus de A2, avec B3="Paquet nº1", B4="Paquet nº2",...,B7="Paquet
nº5".
Mais imaginez maintenant que j´ai plusieurs factures sur lignes.
Comment pourrai-je alors ajouter avec macro le nombre correspondant de
lignes en fonction de la formule Quantité/Paquet juste au dessus de la
respective facture??

Moi ça me parait assez dificil...:(

Bon, je crois y avoir une solution pour ça, mais en tout cas, même si il y
en a pas, pas grave..
Je veux aussi vraiment remércier à tous ceux qui participent sur ce
newsgroups en répondant gratuitement...C´est beau à voir..;) J´aimerai bien
aider quelqu´un parfois, mais je suis vraiment nul à Excel. Alors, parmis
tous ceux qui sont dans ce petit monde Excel, je vous remercie..;)
Bonne Soirée...
Signaler un problème avec ce contenu

5 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
Youky
ceci fonctionne si en A1="Numéro Facture", B1="Quantité", C1="Paquet";
au lieu de > A1="Numéro Facture", A2="Quantité", A3="Paquet";
Youky
Private Sub CommandButton1_Click()
x = [counta(A:A)] - 1
k = 1
Do
k = k + 1
If Cells(k, 1) <> "" Then t = t + 1
If Cells(k, 1) <> "" And Cells(k + 1, 3) <> "Paquet n° 1" Then
For b = 1 To Cells(k, 2) / Cells(k, 3)
k = k + 1
Rows(k).Insert Shift:=xlDown
Cells(k, 3) = "Paquet n° " & b
Next
End If
If t = x Then Exit Do
Loop
End Sub
"José Carapito" a écrit dans le
message de news:
Bonsoir à tous,

Je demande votre aide pour ce petit gros problème :P
Comment insérer des lignes avec macro ayant cet exemple:
A1="Numéro Facture", A2="Quantité", A3="Paquet";
A2= "FC1", B2="500", C2="100", avec macro ici, ça devrait me rajouter 5
lignes au dessus de A2, avec B3="Paquet nº1", B4="Paquet
nº2",...,B7="Paquet
nº5".
Mais imaginez maintenant que j´ai plusieurs factures sur lignes.
Comment pourrai-je alors ajouter avec macro le nombre correspondant de
lignes en fonction de la formule Quantité/Paquet juste au dessus de la
respective facture??

Moi ça me parait assez dificil...:(

Bon, je crois y avoir une solution pour ça, mais en tout cas, même si il y
en a pas, pas grave..
Je veux aussi vraiment remércier à tous ceux qui participent sur ce
newsgroups en répondant gratuitement...C´est beau à voir..;) J´aimerai
bien
aider quelqu´un parfois, mais je suis vraiment nul à Excel. Alors, parmis
tous ceux qui sont dans ce petit monde Excel, je vous remercie..;)
Bonne Soirée...


Avatar
José Carapito
Salut...merci...ça marche..;)
Mais si jamais il y a par exemple en Quantité 800 et Paquet 250, ça me fait
que 3 Paquets...Comment faire pour pouvoir y avoir 4 Paquets etant donné que
les 3 premiers ont 250 chaqun et le 4ème Paquet n´a que 50...?!
Merci.

"Youky" wrote:

ceci fonctionne si en A1="Numéro Facture", B1="Quantité", C1="Paquet";
au lieu de > A1="Numéro Facture", A2="Quantité", A3="Paquet";
Youky
Private Sub CommandButton1_Click()
x = [counta(A:A)] - 1
k = 1
Do
k = k + 1
If Cells(k, 1) <> "" Then t = t + 1
If Cells(k, 1) <> "" And Cells(k + 1, 3) <> "Paquet n° 1" Then
For b = 1 To Cells(k, 2) / Cells(k, 3)
k = k + 1
Rows(k).Insert Shift:=xlDown
Cells(k, 3) = "Paquet n° " & b
Next
End If
If t = x Then Exit Do
Loop
End Sub
"José Carapito" a écrit dans le
message de news:
Bonsoir à tous,

Je demande votre aide pour ce petit gros problème :P
Comment insérer des lignes avec macro ayant cet exemple:
A1="Numéro Facture", A2="Quantité", A3="Paquet";
A2= "FC1", B2="500", C2="100", avec macro ici, ça devrait me rajouter 5
lignes au dessus de A2, avec B3="Paquet nº1", B4="Paquet
nº2",...,B7="Paquet
nº5".
Mais imaginez maintenant que j´ai plusieurs factures sur lignes.
Comment pourrai-je alors ajouter avec macro le nombre correspondant de
lignes en fonction de la formule Quantité/Paquet juste au dessus de la
respective facture??

Moi ça me parait assez dificil...:(

Bon, je crois y avoir une solution pour ça, mais en tout cas, même si il y
en a pas, pas grave..
Je veux aussi vraiment remércier à tous ceux qui participent sur ce
newsgroups en répondant gratuitement...C´est beau à voir..;) J´aimerai
bien
aider quelqu´un parfois, mais je suis vraiment nul à Excel. Alors, parmis
tous ceux qui sont dans ce petit monde Excel, je vous remercie..;)
Bonne Soirée...







Avatar
Youky
j'ai modifié la ligne du For b=1 to...............
cela devrait faire
Youky
Private Sub CommandButton1_Click()
x = [counta(A:A)] - 1
k = 1
Do
k = k + 1
If Cells(k, 1) <> "" Then t = t + 1
If Cells(k, 1) <> "" And Cells(k + 1, 3) <> "Paquet n° 1" Then
For b = 1 To Application.RoundUp(Cells(k, 2) / Cells(k, 3), 0)
k = k + 1
Rows(k).Insert Shift:=xlDown
Cells(k, 3) = "Paquet n° " & b
Next
End If
If t = x Then Exit Do
Loop
End Sub

"José Carapito" a écrit dans le
message de news:
Salut...merci...ça marche..;)
Mais si jamais il y a par exemple en Quantité 800 et Paquet 250, ça me
fait
que 3 Paquets...Comment faire pour pouvoir y avoir 4 Paquets etant donné
que
les 3 premiers ont 250 chaqun et le 4ème Paquet n´a que 50...?!
Merci.

"Youky" wrote:

ceci fonctionne si en A1="Numéro Facture", B1="Quantité", C1="Paquet";
au lieu de > A1="Numéro Facture", A2="Quantité", A3="Paquet";
Youky
Private Sub CommandButton1_Click()
x = [counta(A:A)] - 1
k = 1
Do
k = k + 1
If Cells(k, 1) <> "" Then t = t + 1
If Cells(k, 1) <> "" And Cells(k + 1, 3) <> "Paquet n° 1" Then
For b = 1 To Cells(k, 2) / Cells(k, 3)
k = k + 1
Rows(k).Insert Shift:=xlDown
Cells(k, 3) = "Paquet n° " & b
Next
End If
If t = x Then Exit Do
Loop
End Sub
"José Carapito" a écrit dans le
message de news:
Bonsoir à tous,

Je demande votre aide pour ce petit gros problème :P
Comment insérer des lignes avec macro ayant cet exemple:
A1="Numéro Facture", A2="Quantité", A3="Paquet";
A2= "FC1", B2="500", C2="100", avec macro ici, ça devrait me rajouter 5
lignes au dessus de A2, avec B3="Paquet nº1", B4="Paquet
nº2",...,B7="Paquet
nº5".
Mais imaginez maintenant que j´ai plusieurs factures sur lignes.
Comment pourrai-je alors ajouter avec macro le nombre correspondant de
lignes en fonction de la formule Quantité/Paquet juste au dessus de la
respective facture??

Moi ça me parait assez dificil...:(

Bon, je crois y avoir une solution pour ça, mais en tout cas, même si
il y
en a pas, pas grave..
Je veux aussi vraiment remércier à tous ceux qui participent sur ce
newsgroups en répondant gratuitement...C´est beau à voir..;) J´aimerai
bien
aider quelqu´un parfois, mais je suis vraiment nul à Excel. Alors,
parmis
tous ceux qui sont dans ce petit monde Excel, je vous remercie..;)
Bonne Soirée...









Avatar
Youky
Une autre variante qui indique les Qte du paquet en colonne D et bien sur la
bonne qte du dernier paquet
à tester Youky

Private Sub CommandButton1_Click()
x = [counta(A:A)] - 1
k = 1
Do
k = k + 1
If Cells(k, 1) <> "" Then t = t + 1: z = Cells(k, 2): za = Cells(k, 3)
If Cells(k, 1) <> "" And Cells(k + 1, 3) <> "Paquet n° 1" Then
For b = 1 To Application.RoundUp(Cells(k, 2) / Cells(k, 3), 0)
k = k + 1
Rows(k).Insert Shift:=xlDown
Cells(k, 3) = "Paquet n° " & b
If b <= z / za Then
Cells(k, 4) = za
Else
Cells(k, 4) = z Mod za
End If
Next
End If
If t = x Then Exit Do
Loop
End Sub
Avatar
José Carapito
Merci bien Youky...Ça marche...;)
à plus..

"Youky" wrote:

Une autre variante qui indique les Qte du paquet en colonne D et bien sur la
bonne qte du dernier paquet
à tester Youky

Private Sub CommandButton1_Click()
x = [counta(A:A)] - 1
k = 1
Do
k = k + 1
If Cells(k, 1) <> "" Then t = t + 1: z = Cells(k, 2): za = Cells(k, 3)
If Cells(k, 1) <> "" And Cells(k + 1, 3) <> "Paquet n° 1" Then
For b = 1 To Application.RoundUp(Cells(k, 2) / Cells(k, 3), 0)
k = k + 1
Rows(k).Insert Shift:=xlDown
Cells(k, 3) = "Paquet n° " & b
If b <= z / za Then
Cells(k, 4) = za
Else
Cells(k, 4) = z Mod za
End If
Next
End If
If t = x Then Exit Do
Loop
End Sub