urgent lignes doubles

[rafii]

merci a tous je voudrais creer une ligne double aprés chaque nom sans copier/collre. je joins un fihier comme exemple. merci.

 

[Roland_M]

Re : urgent lignes doubles

bonsoir à tous

qu'entends tu par ligne double ?

il suffit de faire une insertion de ligne !?
ou j'ai pas bien compris !

 

[phlaurent55]

Re : urgent lignes doubles

Bonsoir à tous,

avec la macro suivante

Sub Macro1()
Dim derligne
derligne = Range("A65535").End(xlUp).Row
For i = derligne To 1 Step -1
    Rows(i).Select
    Selection.Insert Shift:=xlDown
    Rows(i + 1).Select
    Selection.Copy
    Rows(i).Select
    ActiveSheet.Paste
Next i
   
End Sub

essaie et dis-nous au cas où j'aurais pas bien compris moi aussi

Edit: Bonsoir Roland

 

[rafii]

Re : urgent lignes doubles

cette macro est pour une seule ligne , je voudrais une macro pour toutes les lignes dans une seule feuile. merci.

 

[mth]

Re : urgent lignes doubles

bonsoir le fil

Citation:
cette macro est pour une seule ligne

bien sûr que non !!!

Citation:
sans copier/collre

pour faire la même chose sans copier coller, il suffit de conserver cette macro créée par phlaurent55 sans la partie copier coller, ce qui pourrait donner :

Sub Macro2()
Dim derligne
derligne = Range("A65535").End(xlUp).Row

For i = derligne To 2 Step -1
    Rows(i).Insert Shift:=xlDown
Next i
 
End Sub

Comme ça tu as le choix entre les deux

Ci-joint ton fichier avec les deux macros, que tu peux lancer en cliquant sur les deux boutons.
Si tu veux voir ou corriger le code, tu utilises les touches ALT et F11 simultanément.

Cordialement,

mth

 

[CG2000]

Re : urgent lignes doubles

bonsoir le fil,

Merci à tous pour ce fil (questions et réponses) .

Cepeandant je m'interroge : avec le fichier exemple de rafii est-il possible d'obtenir l'ajout par cinq lignes et non d'une dès le premier lancement de la macro ? (Ajout de 5 lignes vides).
Merci

 

[mth]

Re : urgent lignes doubles

Bonjour cg2000

Pour insérer 5 lignes, tu peux remplacer le code par celui-ci:

Sub Macro5()
Dim derligne
derligne = Range("A65535").End(xlUp).Row
For i = derligne To 2 Step -1
    Rows(i & ":" & i + 4).Insert Shift:=xlDown
Next i
   
End Sub

Bonne journée,

mth

 

[rafii]

Re : urgent lignes doubles

UN GRAND MERCI pour " mth " . je te demande un autre service svp . je voudrais inserer les sommes en rouge pour autres noms de la meme facon que le premier . fichier joint .

 

[mth]

Re : urgent lignes doubles

re,

sourire.... c'est surtout phlaurent55 qu'il faut remercier, car de mon coté je n'ai rien fait d'autre que reprendre son code pour le mettre dans la pièce jointe ...

Pour le reste, je ne comprends pas bien où il faut copier les chiffres en rouge et selon quels critères s'il y en a, mais tu trouveras un petit essai ci-joint, que tu modifieras selon tes besoins.

Bonne journée,

mth

 

[rafii]

Re : urgent lignes doubles

un grand merci pour phlaurent55 et mth . ma demande est que je puisse copier les chiffres en rouge pour chaque personne en double tel que le premeir nom. c'est a dire que : 350.000.00 soit copier automatiquement dans D1 et G1 et E2 et H2
0.00 soit copier automatiquement dans D2 et G2 et E1 et H1 .
Faire la meme chose pour les 4 noms qui suit .

 

[mth]

Re : urgent lignes doubles

re

Un autre essai en PJ,

@ +

mth

 

[rafii]

Re : urgent lignes doubles

la touche insesrée ne marche pas

 

[mth]

Re : urgent lignes doubles

tu veux dire le bouton "Copier les valeurs rouges" ne marche pas?

Ca fonctionne chez moi, mais peut-être comme le tableau est déjà rempli ça ne se voit pas?
Efface les données des colonnes D:E et G:H et relance la macro pour voir ?

@ +

mth

 

[JCGL]

Re : urgent lignes doubles

Bonjour à tous,
Salut Mimi ,

Je confirme, si besoin était, que le code fonctionne parfaitement.
Qui en aurait douté ????

Bises Mimi
A+ à tous

 

[mth]

Re : urgent lignes doubles

Je confirme, si besoin était, que le code fonctionne parfaitement.
Qui en aurait douté ????

pffff .... (grand) sourire ... trop gentil JC , mais ça fait bien plaisir, et merci d'avoir jeté un oeil
Plein de bises et @ +

M