Pour copier le format d'une ligne,il faut faire =>Copier, sélectionner la
ligne, sélectionner collage spécial, format et OK< > Est-il possible de simplifier cette tache quand il faut le coller toute les
deux lignes ?
Pareil pour "insérer".
Merci de votre aide.
Cordialement
Guy
Pour copier le format d'une ligne,il faut faire =>Copier, sélectionner la
ligne, sélectionner collage spécial, format et OK< > Est-il possible de simplifier cette tache quand il faut le coller toute les
deux lignes ?
Pareil pour "insérer".
Merci de votre aide.
Cordialement
Guy
Pour copier le format d'une ligne,il faut faire =>Copier, sélectionner la
ligne, sélectionner collage spécial, format et OK< > Est-il possible de simplifier cette tache quand il faut le coller toute les
deux lignes ?
Pareil pour "insérer".
Merci de votre aide.
Cordialement
Guy
Pour copier le format d'une ligne,il faut faire =>Copier, sélectionner la
ligne, sélectionner collage spécial, format et OK< > Est-il possible de simplifier cette tache quand il faut le coller toute
les deux lignes ?
Pareil pour "insérer".
Merci de votre aide.
Cordialement
Guy
Pour copier le format d'une ligne,il faut faire =>Copier, sélectionner la
ligne, sélectionner collage spécial, format et OK< > Est-il possible de simplifier cette tache quand il faut le coller toute
les deux lignes ?
Pareil pour "insérer".
Merci de votre aide.
Cordialement
Guy
Pour copier le format d'une ligne,il faut faire =>Copier, sélectionner la
ligne, sélectionner collage spécial, format et OK< > Est-il possible de simplifier cette tache quand il faut le coller toute
les deux lignes ?
Pareil pour "insérer".
Merci de votre aide.
Cordialement
Guy
Bonjour.
Essaie :
Sub CollerFormatUneLigneSurDeux()
Dim Ligne As Long
For i = Selection.Row To Selection.Row + Selection.Rows.Count - 1 Step 2
Rows(i).PasteSpecial xlPasteFormats
Next i
End Sub
DanielPour copier le format d'une ligne,il faut faire =>Copier, sélectionner la
ligne, sélectionner collage spécial, format et OK< >> Est-il possible de simplifier cette tache quand il faut le coller toute
les deux lignes ?
Pareil pour "insérer".
Merci de votre aide.
Cordialement
Guy
Bonjour.
Essaie :
Sub CollerFormatUneLigneSurDeux()
Dim Ligne As Long
For i = Selection.Row To Selection.Row + Selection.Rows.Count - 1 Step 2
Rows(i).PasteSpecial xlPasteFormats
Next i
End Sub
Daniel
Pour copier le format d'une ligne,il faut faire =>Copier, sélectionner la
ligne, sélectionner collage spécial, format et OK< >> Est-il possible de simplifier cette tache quand il faut le coller toute
les deux lignes ?
Pareil pour "insérer".
Merci de votre aide.
Cordialement
Guy
Bonjour.
Essaie :
Sub CollerFormatUneLigneSurDeux()
Dim Ligne As Long
For i = Selection.Row To Selection.Row + Selection.Rows.Count - 1 Step 2
Rows(i).PasteSpecial xlPasteFormats
Next i
End Sub
DanielPour copier le format d'une ligne,il faut faire =>Copier, sélectionner la
ligne, sélectionner collage spécial, format et OK< >> Est-il possible de simplifier cette tache quand il faut le coller toute
les deux lignes ?
Pareil pour "insérer".
Merci de votre aide.
Cordialement
Guy
Bonjour Daniel,
Elle ne fonctionne pas, j'ai la ligne 4 qui est en jaune.
Avec le message :"La méthode PasteSpécial de la classe Range à échoué".
Cordialement
Guy
"Daniel.C" a écrit dans le message de news:
OC$Bonjour.
Essaie :
Sub CollerFormatUneLigneSurDeux()
Dim Ligne As Long
For i = Selection.Row To Selection.Row + Selection.Rows.Count - 1 Step 2
Rows(i).PasteSpecial xlPasteFormats
Next i
End Sub
DanielPour copier le format d'une ligne,il faut faire =>Copier, sélectionner la
ligne, sélectionner collage spécial, format et OK< >>> Est-il possible de simplifier cette tache quand il faut le coller toute
les deux lignes ?
Pareil pour "insérer".
Merci de votre aide.
Cordialement
Guy
Bonjour Daniel,
Elle ne fonctionne pas, j'ai la ligne 4 qui est en jaune.
Avec le message :"La méthode PasteSpécial de la classe Range à échoué".
Cordialement
Guy
"Daniel.C" <dcolardelleZZZ@gmail.com> a écrit dans le message de news:
OC$2UQaoKHA.1544@TK2MSFTNGP02.phx.gbl...
Bonjour.
Essaie :
Sub CollerFormatUneLigneSurDeux()
Dim Ligne As Long
For i = Selection.Row To Selection.Row + Selection.Rows.Count - 1 Step 2
Rows(i).PasteSpecial xlPasteFormats
Next i
End Sub
Daniel
Pour copier le format d'une ligne,il faut faire =>Copier, sélectionner la
ligne, sélectionner collage spécial, format et OK< >>> Est-il possible de simplifier cette tache quand il faut le coller toute
les deux lignes ?
Pareil pour "insérer".
Merci de votre aide.
Cordialement
Guy
Bonjour Daniel,
Elle ne fonctionne pas, j'ai la ligne 4 qui est en jaune.
Avec le message :"La méthode PasteSpécial de la classe Range à échoué".
Cordialement
Guy
"Daniel.C" a écrit dans le message de news:
OC$Bonjour.
Essaie :
Sub CollerFormatUneLigneSurDeux()
Dim Ligne As Long
For i = Selection.Row To Selection.Row + Selection.Rows.Count - 1 Step 2
Rows(i).PasteSpecial xlPasteFormats
Next i
End Sub
DanielPour copier le format d'une ligne,il faut faire =>Copier, sélectionner la
ligne, sélectionner collage spécial, format et OK< >>> Est-il possible de simplifier cette tache quand il faut le coller toute
les deux lignes ?
Pareil pour "insérer".
Merci de votre aide.
Cordialement
Guy
Quelle ligne as-tu copiée et quelle zone as-tu sélectionnée ?
DanielBonjour Daniel,
Elle ne fonctionne pas, j'ai la ligne 4 qui est en jaune.
Avec le message :"La méthode PasteSpécial de la classe Range à échoué".
Cordialement
Guy
"Daniel.C" a écrit dans le message de news:
OC$Bonjour.
Essaie :
Sub CollerFormatUneLigneSurDeux()
Dim Ligne As Long
For i = Selection.Row To Selection.Row + Selection.Rows.Count - 1 Step 2
Rows(i).PasteSpecial xlPasteFormats
Next i
End Sub
DanielPour copier le format d'une ligne,il faut faire =>Copier, sélectionner
la ligne, sélectionner collage spécial, format et OK< >>>> Est-il possible de simplifier cette tache quand il faut le coller toute
les deux lignes ?
Pareil pour "insérer".
Merci de votre aide.
Cordialement
Guy
Quelle ligne as-tu copiée et quelle zone as-tu sélectionnée ?
Daniel
Bonjour Daniel,
Elle ne fonctionne pas, j'ai la ligne 4 qui est en jaune.
Avec le message :"La méthode PasteSpécial de la classe Range à échoué".
Cordialement
Guy
"Daniel.C" <dcolardelleZZZ@gmail.com> a écrit dans le message de news:
OC$2UQaoKHA.1544@TK2MSFTNGP02.phx.gbl...
Bonjour.
Essaie :
Sub CollerFormatUneLigneSurDeux()
Dim Ligne As Long
For i = Selection.Row To Selection.Row + Selection.Rows.Count - 1 Step 2
Rows(i).PasteSpecial xlPasteFormats
Next i
End Sub
Daniel
Pour copier le format d'une ligne,il faut faire =>Copier, sélectionner
la ligne, sélectionner collage spécial, format et OK< >>>> Est-il possible de simplifier cette tache quand il faut le coller toute
les deux lignes ?
Pareil pour "insérer".
Merci de votre aide.
Cordialement
Guy
Quelle ligne as-tu copiée et quelle zone as-tu sélectionnée ?
DanielBonjour Daniel,
Elle ne fonctionne pas, j'ai la ligne 4 qui est en jaune.
Avec le message :"La méthode PasteSpécial de la classe Range à échoué".
Cordialement
Guy
"Daniel.C" a écrit dans le message de news:
OC$Bonjour.
Essaie :
Sub CollerFormatUneLigneSurDeux()
Dim Ligne As Long
For i = Selection.Row To Selection.Row + Selection.Rows.Count - 1 Step 2
Rows(i).PasteSpecial xlPasteFormats
Next i
End Sub
DanielPour copier le format d'une ligne,il faut faire =>Copier, sélectionner
la ligne, sélectionner collage spécial, format et OK< >>>> Est-il possible de simplifier cette tache quand il faut le coller toute
les deux lignes ?
Pareil pour "insérer".
Merci de votre aide.
Cordialement
Guy
Bonjour Daniel,
Par exemple, j'ai copié la "ligne 4", j'ai sélectionné la "ligne 81", puis
=>Macro =>Exécuter.
Guy
"Daniel.C" <dcola, a écrit dans le message de news:Quelle ligne as-tu copiée et quelle zone as-tu sélectionnée ?
DanielBonjour Daniel,
Elle ne fonctionne pas, j'ai la ligne 4 qui est en jaune.
Avec le message :"La méthode PasteSpécial de la classe Range à échoué".
Cordialement
Guy
"Daniel.C" a écrit dans le message de news:
OC$Bonjour.
Essaie :
Sub CollerFormatUneLigneSurDeux()
Dim Ligne As Long
For i = Selection.Row To Selection.Row + Selection.Rows.Count - 1 Step 2
Rows(i).PasteSpecial xlPasteFormats
Next i
End Sub
DanielPour copier le format d'une ligne,il faut faire =>Copier, sélectionner
la ligne, sélectionner collage spécial, format et OK< >>>>> Est-il possible de simplifier cette tache quand il faut le coller toute
les deux lignes ?
Pareil pour "insérer".
Merci de votre aide.
Cordialement
Guy
Bonjour Daniel,
Par exemple, j'ai copié la "ligne 4", j'ai sélectionné la "ligne 81", puis
=>Macro =>Exécuter.
Guy
"Daniel.C" <dcola,rdelleZZZ@gmail.com> a écrit dans le message de news:
ucyXbUdoKHA.5696@TK2MSFTNGP04.phx.gbl...
Quelle ligne as-tu copiée et quelle zone as-tu sélectionnée ?
Daniel
Bonjour Daniel,
Elle ne fonctionne pas, j'ai la ligne 4 qui est en jaune.
Avec le message :"La méthode PasteSpécial de la classe Range à échoué".
Cordialement
Guy
"Daniel.C" <dcolardelleZZZ@gmail.com> a écrit dans le message de news:
OC$2UQaoKHA.1544@TK2MSFTNGP02.phx.gbl...
Bonjour.
Essaie :
Sub CollerFormatUneLigneSurDeux()
Dim Ligne As Long
For i = Selection.Row To Selection.Row + Selection.Rows.Count - 1 Step 2
Rows(i).PasteSpecial xlPasteFormats
Next i
End Sub
Daniel
Pour copier le format d'une ligne,il faut faire =>Copier, sélectionner
la ligne, sélectionner collage spécial, format et OK< >>>>> Est-il possible de simplifier cette tache quand il faut le coller toute
les deux lignes ?
Pareil pour "insérer".
Merci de votre aide.
Cordialement
Guy
Bonjour Daniel,
Par exemple, j'ai copié la "ligne 4", j'ai sélectionné la "ligne 81", puis
=>Macro =>Exécuter.
Guy
"Daniel.C" <dcola, a écrit dans le message de news:Quelle ligne as-tu copiée et quelle zone as-tu sélectionnée ?
DanielBonjour Daniel,
Elle ne fonctionne pas, j'ai la ligne 4 qui est en jaune.
Avec le message :"La méthode PasteSpécial de la classe Range à échoué".
Cordialement
Guy
"Daniel.C" a écrit dans le message de news:
OC$Bonjour.
Essaie :
Sub CollerFormatUneLigneSurDeux()
Dim Ligne As Long
For i = Selection.Row To Selection.Row + Selection.Rows.Count - 1 Step 2
Rows(i).PasteSpecial xlPasteFormats
Next i
End Sub
DanielPour copier le format d'une ligne,il faut faire =>Copier, sélectionner
la ligne, sélectionner collage spécial, format et OK< >>>>> Est-il possible de simplifier cette tache quand il faut le coller toute
les deux lignes ?
Pareil pour "insérer".
Merci de votre aide.
Cordialement
Guy
Bonjour.
Le fait de faire "Macro, Exécuter" annule le copier. La macro suivante te
demande la ligne à copier, les lignes où le collage doit s'effectuer et
effectue le copier et le coller une ligne sur deux :
Sub CollerFormatUneLigneSurDeux()
Dim Ligne As Long, Copier As Range, Coller As Range
Set Copier = Application.InputBox("Sélectionnez la ligne à copier",
Type:=8)
Set Coller = Application.InputBox("Sélectionnez les lignes destinataires",
Type:=8)
Copier.Copy
For i = Coller.Row To Coller.Row + Coller.Rows.Count - 1 Step 2
Rows(i).PasteSpecial xlPasteFormats
Next i
End Sub
DanielBonjour Daniel,
Par exemple, j'ai copié la "ligne 4", j'ai sélectionné la "ligne 81",
puis =>Macro =>Exécuter.
Guy
"Daniel.C" <dcola, a écrit dans le message de news:Quelle ligne as-tu copiée et quelle zone as-tu sélectionnée ?
DanielBonjour Daniel,
Elle ne fonctionne pas, j'ai la ligne 4 qui est en jaune.
Avec le message :"La méthode PasteSpécial de la classe Range à échoué".
Cordialement
Guy
"Daniel.C" a écrit dans le message de news:
OC$Bonjour.
Essaie :
Sub CollerFormatUneLigneSurDeux()
Dim Ligne As Long
For i = Selection.Row To Selection.Row + Selection.Rows.Count - 1 Step
2
Rows(i).PasteSpecial xlPasteFormats
Next i
End Sub
DanielPour copier le format d'une ligne,il faut faire =>Copier,
sélectionner la ligne, sélectionner collage spécial, format et OK< >>>>>> Est-il possible de simplifier cette tache quand il faut le coller
toute les deux lignes ?
Pareil pour "insérer".
Merci de votre aide.
Cordialement
Guy
Bonjour.
Le fait de faire "Macro, Exécuter" annule le copier. La macro suivante te
demande la ligne à copier, les lignes où le collage doit s'effectuer et
effectue le copier et le coller une ligne sur deux :
Sub CollerFormatUneLigneSurDeux()
Dim Ligne As Long, Copier As Range, Coller As Range
Set Copier = Application.InputBox("Sélectionnez la ligne à copier",
Type:=8)
Set Coller = Application.InputBox("Sélectionnez les lignes destinataires",
Type:=8)
Copier.Copy
For i = Coller.Row To Coller.Row + Coller.Rows.Count - 1 Step 2
Rows(i).PasteSpecial xlPasteFormats
Next i
End Sub
Daniel
Bonjour Daniel,
Par exemple, j'ai copié la "ligne 4", j'ai sélectionné la "ligne 81",
puis =>Macro =>Exécuter.
Guy
"Daniel.C" <dcola,rdelleZZZ@gmail.com> a écrit dans le message de news:
ucyXbUdoKHA.5696@TK2MSFTNGP04.phx.gbl...
Quelle ligne as-tu copiée et quelle zone as-tu sélectionnée ?
Daniel
Bonjour Daniel,
Elle ne fonctionne pas, j'ai la ligne 4 qui est en jaune.
Avec le message :"La méthode PasteSpécial de la classe Range à échoué".
Cordialement
Guy
"Daniel.C" <dcolardelleZZZ@gmail.com> a écrit dans le message de news:
OC$2UQaoKHA.1544@TK2MSFTNGP02.phx.gbl...
Bonjour.
Essaie :
Sub CollerFormatUneLigneSurDeux()
Dim Ligne As Long
For i = Selection.Row To Selection.Row + Selection.Rows.Count - 1 Step
2
Rows(i).PasteSpecial xlPasteFormats
Next i
End Sub
Daniel
Pour copier le format d'une ligne,il faut faire =>Copier,
sélectionner la ligne, sélectionner collage spécial, format et OK< >>>>>> Est-il possible de simplifier cette tache quand il faut le coller
toute les deux lignes ?
Pareil pour "insérer".
Merci de votre aide.
Cordialement
Guy
Bonjour.
Le fait de faire "Macro, Exécuter" annule le copier. La macro suivante te
demande la ligne à copier, les lignes où le collage doit s'effectuer et
effectue le copier et le coller une ligne sur deux :
Sub CollerFormatUneLigneSurDeux()
Dim Ligne As Long, Copier As Range, Coller As Range
Set Copier = Application.InputBox("Sélectionnez la ligne à copier",
Type:=8)
Set Coller = Application.InputBox("Sélectionnez les lignes destinataires",
Type:=8)
Copier.Copy
For i = Coller.Row To Coller.Row + Coller.Rows.Count - 1 Step 2
Rows(i).PasteSpecial xlPasteFormats
Next i
End Sub
DanielBonjour Daniel,
Par exemple, j'ai copié la "ligne 4", j'ai sélectionné la "ligne 81",
puis =>Macro =>Exécuter.
Guy
"Daniel.C" <dcola, a écrit dans le message de news:Quelle ligne as-tu copiée et quelle zone as-tu sélectionnée ?
DanielBonjour Daniel,
Elle ne fonctionne pas, j'ai la ligne 4 qui est en jaune.
Avec le message :"La méthode PasteSpécial de la classe Range à échoué".
Cordialement
Guy
"Daniel.C" a écrit dans le message de news:
OC$Bonjour.
Essaie :
Sub CollerFormatUneLigneSurDeux()
Dim Ligne As Long
For i = Selection.Row To Selection.Row + Selection.Rows.Count - 1 Step
2
Rows(i).PasteSpecial xlPasteFormats
Next i
End Sub
DanielPour copier le format d'une ligne,il faut faire =>Copier,
sélectionner la ligne, sélectionner collage spécial, format et OK< >>>>>> Est-il possible de simplifier cette tache quand il faut le coller
toute les deux lignes ?
Pareil pour "insérer".
Merci de votre aide.
Cordialement
Guy
Bonjour.
Le fait de faire "Macro, Exécuter" annule le copier. La macro suivante te
demande la ligne à copier, les lignes où le collage doit s'effectuer et
effectue le copier et le coller une ligne sur deux :
Sub CollerFormatUneLigneSurDeux()
Dim Ligne As Long, Copier As Range, Coller As Range
Set Copier = Application.InputBox("Sélectionnez la ligne à copier",
Type:=8)
Set Coller = Application.InputBox("Sélectionnez les lignes destinataires",
Type:=8)
Copier.Copy
For i = Coller.Row To Coller.Row + Coller.Rows.Count - 1 Step 2
Rows(i).PasteSpecial xlPasteFormats
Next i
End Sub
DanielBonjour Daniel,
Par exemple, j'ai copié la "ligne 4", j'ai sélectionné la "ligne 81",
puis =>Macro =>Exécuter.
Guy
"Daniel.C" <dcola, a écrit dans le message de news:Quelle ligne as-tu copiée et quelle zone as-tu sélectionnée ?
DanielBonjour Daniel,
Elle ne fonctionne pas, j'ai la ligne 4 qui est en jaune.
Avec le message :"La méthode PasteSpécial de la classe Range à échoué".
Cordialement
Guy
"Daniel.C" a écrit dans le message de news:
OC$Bonjour.
Essaie :
Sub CollerFormatUneLigneSurDeux()
Dim Ligne As Long
For i = Selection.Row To Selection.Row + Selection.Rows.Count - 1 Step
2
Rows(i).PasteSpecial xlPasteFormats
Next i
End Sub
DanielPour copier le format d'une ligne,il faut faire =>Copier,
sélectionner la ligne, sélectionner collage spécial, format et OK< >>>>>> Est-il possible de simplifier cette tache quand il faut le coller
toute les deux lignes ?
Pareil pour "insérer".
Merci de votre aide.
Cordialement
Guy
Bonjour.
Le fait de faire "Macro, Exécuter" annule le copier. La macro suivante te
demande la ligne à copier, les lignes où le collage doit s'effectuer et
effectue le copier et le coller une ligne sur deux :
Sub CollerFormatUneLigneSurDeux()
Dim Ligne As Long, Copier As Range, Coller As Range
Set Copier = Application.InputBox("Sélectionnez la ligne à copier",
Type:=8)
Set Coller = Application.InputBox("Sélectionnez les lignes destinataires",
Type:=8)
Copier.Copy
For i = Coller.Row To Coller.Row + Coller.Rows.Count - 1 Step 2
Rows(i).PasteSpecial xlPasteFormats
Next i
End Sub
Daniel
Bonjour Daniel,
Par exemple, j'ai copié la "ligne 4", j'ai sélectionné la "ligne 81",
puis =>Macro =>Exécuter.
Guy
"Daniel.C" <dcola,rdelleZZZ@gmail.com> a écrit dans le message de news:
ucyXbUdoKHA.5696@TK2MSFTNGP04.phx.gbl...
Quelle ligne as-tu copiée et quelle zone as-tu sélectionnée ?
Daniel
Bonjour Daniel,
Elle ne fonctionne pas, j'ai la ligne 4 qui est en jaune.
Avec le message :"La méthode PasteSpécial de la classe Range à échoué".
Cordialement
Guy
"Daniel.C" <dcolardelleZZZ@gmail.com> a écrit dans le message de news:
OC$2UQaoKHA.1544@TK2MSFTNGP02.phx.gbl...
Bonjour.
Essaie :
Sub CollerFormatUneLigneSurDeux()
Dim Ligne As Long
For i = Selection.Row To Selection.Row + Selection.Rows.Count - 1 Step
2
Rows(i).PasteSpecial xlPasteFormats
Next i
End Sub
Daniel
Pour copier le format d'une ligne,il faut faire =>Copier,
sélectionner la ligne, sélectionner collage spécial, format et OK< >>>>>> Est-il possible de simplifier cette tache quand il faut le coller
toute les deux lignes ?
Pareil pour "insérer".
Merci de votre aide.
Cordialement
Guy
Bonjour.
Le fait de faire "Macro, Exécuter" annule le copier. La macro suivante te
demande la ligne à copier, les lignes où le collage doit s'effectuer et
effectue le copier et le coller une ligne sur deux :
Sub CollerFormatUneLigneSurDeux()
Dim Ligne As Long, Copier As Range, Coller As Range
Set Copier = Application.InputBox("Sélectionnez la ligne à copier",
Type:=8)
Set Coller = Application.InputBox("Sélectionnez les lignes destinataires",
Type:=8)
Copier.Copy
For i = Coller.Row To Coller.Row + Coller.Rows.Count - 1 Step 2
Rows(i).PasteSpecial xlPasteFormats
Next i
End Sub
DanielBonjour Daniel,
Par exemple, j'ai copié la "ligne 4", j'ai sélectionné la "ligne 81",
puis =>Macro =>Exécuter.
Guy
"Daniel.C" <dcola, a écrit dans le message de news:Quelle ligne as-tu copiée et quelle zone as-tu sélectionnée ?
DanielBonjour Daniel,
Elle ne fonctionne pas, j'ai la ligne 4 qui est en jaune.
Avec le message :"La méthode PasteSpécial de la classe Range à échoué".
Cordialement
Guy
"Daniel.C" a écrit dans le message de news:
OC$Bonjour.
Essaie :
Sub CollerFormatUneLigneSurDeux()
Dim Ligne As Long
For i = Selection.Row To Selection.Row + Selection.Rows.Count - 1 Step
2
Rows(i).PasteSpecial xlPasteFormats
Next i
End Sub
DanielPour copier le format d'une ligne,il faut faire =>Copier,
sélectionner la ligne, sélectionner collage spécial, format et OK< >>>>>> Est-il possible de simplifier cette tache quand il faut le coller
toute les deux lignes ?
Pareil pour "insérer".
Merci de votre aide.
Cordialement
Guy
J'ai mis un bouton pour la macro.
Arrive la fenêtre "choisir la ligne à copier".
Je sélectionne la ligne,=>OK, mis ça ne fonctionne pas,ça me surligne en
jaune la ligne 3 de la macro.
Guy
"Daniel.C" a écrit dans le message de news:Bonjour.
Le fait de faire "Macro, Exécuter" annule le copier. La macro suivante te
demande la ligne à copier, les lignes où le collage doit s'effectuer et
effectue le copier et le coller une ligne sur deux :
Sub CollerFormatUneLigneSurDeux()
Dim Ligne As Long, Copier As Range, Coller As Range
Set Copier = Application.InputBox("Sélectionnez la ligne à copier",
Type:=8)
Set Coller = Application.InputBox("Sélectionnez les lignes destinataires",
Type:=8)
Copier.Copy
For i = Coller.Row To Coller.Row + Coller.Rows.Count - 1 Step 2
Rows(i).PasteSpecial xlPasteFormats
Next i
End Sub
DanielBonjour Daniel,
Par exemple, j'ai copié la "ligne 4", j'ai sélectionné la "ligne 81", puis
=>Macro =>Exécuter.
Guy
"Daniel.C" <dcola, a écrit dans le message de news:Quelle ligne as-tu copiée et quelle zone as-tu sélectionnée ?
DanielBonjour Daniel,
Elle ne fonctionne pas, j'ai la ligne 4 qui est en jaune.
Avec le message :"La méthode PasteSpécial de la classe Range à échoué".
Cordialement
Guy
"Daniel.C" a écrit dans le message de news:
OC$Bonjour.
Essaie :
Sub CollerFormatUneLigneSurDeux()
Dim Ligne As Long
For i = Selection.Row To Selection.Row + Selection.Rows.Count - 1 Step
2
Rows(i).PasteSpecial xlPasteFormats
Next i
End Sub
DanielPour copier le format d'une ligne,il faut faire =>Copier, sélectionner
la ligne, sélectionner collage spécial, format et OK< >>>>>>> Est-il possible de simplifier cette tache quand il faut le coller
toute les deux lignes ?
Pareil pour "insérer".
Merci de votre aide.
Cordialement
Guy
J'ai mis un bouton pour la macro.
Arrive la fenêtre "choisir la ligne à copier".
Je sélectionne la ligne,=>OK, mis ça ne fonctionne pas,ça me surligne en
jaune la ligne 3 de la macro.
Guy
"Daniel.C" <dcolardelleZZZ@gmail.com> a écrit dans le message de news:
eBeuaamoKHA.1552@TK2MSFTNGP05.phx.gbl...
Bonjour.
Le fait de faire "Macro, Exécuter" annule le copier. La macro suivante te
demande la ligne à copier, les lignes où le collage doit s'effectuer et
effectue le copier et le coller une ligne sur deux :
Sub CollerFormatUneLigneSurDeux()
Dim Ligne As Long, Copier As Range, Coller As Range
Set Copier = Application.InputBox("Sélectionnez la ligne à copier",
Type:=8)
Set Coller = Application.InputBox("Sélectionnez les lignes destinataires",
Type:=8)
Copier.Copy
For i = Coller.Row To Coller.Row + Coller.Rows.Count - 1 Step 2
Rows(i).PasteSpecial xlPasteFormats
Next i
End Sub
Daniel
Bonjour Daniel,
Par exemple, j'ai copié la "ligne 4", j'ai sélectionné la "ligne 81", puis
=>Macro =>Exécuter.
Guy
"Daniel.C" <dcola,rdelleZZZ@gmail.com> a écrit dans le message de news:
ucyXbUdoKHA.5696@TK2MSFTNGP04.phx.gbl...
Quelle ligne as-tu copiée et quelle zone as-tu sélectionnée ?
Daniel
Bonjour Daniel,
Elle ne fonctionne pas, j'ai la ligne 4 qui est en jaune.
Avec le message :"La méthode PasteSpécial de la classe Range à échoué".
Cordialement
Guy
"Daniel.C" <dcolardelleZZZ@gmail.com> a écrit dans le message de news:
OC$2UQaoKHA.1544@TK2MSFTNGP02.phx.gbl...
Bonjour.
Essaie :
Sub CollerFormatUneLigneSurDeux()
Dim Ligne As Long
For i = Selection.Row To Selection.Row + Selection.Rows.Count - 1 Step
2
Rows(i).PasteSpecial xlPasteFormats
Next i
End Sub
Daniel
Pour copier le format d'une ligne,il faut faire =>Copier, sélectionner
la ligne, sélectionner collage spécial, format et OK< >>>>>>> Est-il possible de simplifier cette tache quand il faut le coller
toute les deux lignes ?
Pareil pour "insérer".
Merci de votre aide.
Cordialement
Guy
J'ai mis un bouton pour la macro.
Arrive la fenêtre "choisir la ligne à copier".
Je sélectionne la ligne,=>OK, mis ça ne fonctionne pas,ça me surligne en
jaune la ligne 3 de la macro.
Guy
"Daniel.C" a écrit dans le message de news:Bonjour.
Le fait de faire "Macro, Exécuter" annule le copier. La macro suivante te
demande la ligne à copier, les lignes où le collage doit s'effectuer et
effectue le copier et le coller une ligne sur deux :
Sub CollerFormatUneLigneSurDeux()
Dim Ligne As Long, Copier As Range, Coller As Range
Set Copier = Application.InputBox("Sélectionnez la ligne à copier",
Type:=8)
Set Coller = Application.InputBox("Sélectionnez les lignes destinataires",
Type:=8)
Copier.Copy
For i = Coller.Row To Coller.Row + Coller.Rows.Count - 1 Step 2
Rows(i).PasteSpecial xlPasteFormats
Next i
End Sub
DanielBonjour Daniel,
Par exemple, j'ai copié la "ligne 4", j'ai sélectionné la "ligne 81", puis
=>Macro =>Exécuter.
Guy
"Daniel.C" <dcola, a écrit dans le message de news:Quelle ligne as-tu copiée et quelle zone as-tu sélectionnée ?
DanielBonjour Daniel,
Elle ne fonctionne pas, j'ai la ligne 4 qui est en jaune.
Avec le message :"La méthode PasteSpécial de la classe Range à échoué".
Cordialement
Guy
"Daniel.C" a écrit dans le message de news:
OC$Bonjour.
Essaie :
Sub CollerFormatUneLigneSurDeux()
Dim Ligne As Long
For i = Selection.Row To Selection.Row + Selection.Rows.Count - 1 Step
2
Rows(i).PasteSpecial xlPasteFormats
Next i
End Sub
DanielPour copier le format d'une ligne,il faut faire =>Copier, sélectionner
la ligne, sélectionner collage spécial, format et OK< >>>>>>> Est-il possible de simplifier cette tache quand il faut le coller
toute les deux lignes ?
Pareil pour "insérer".
Merci de votre aide.
Cordialement
Guy
Cela m'intéresserais beaucoup pour "Insérer un ligne".
"Daniel.C" a écrit dans le message de news:Bonjour.
Le fait de faire "Macro, Exécuter" annule le copier. La macro suivante te
demande la ligne à copier, les lignes où le collage doit s'effectuer et
effectue le copier et le coller une ligne sur deux :
Sub CollerFormatUneLigneSurDeux()
Dim Ligne As Long, Copier As Range, Coller As Range
Set Copier = Application.InputBox("Sélectionnez la ligne à copier",
Type:=8)
Set Coller = Application.InputBox("Sélectionnez les lignes destinataires",
Type:=8)
Copier.Copy
For i = Coller.Row To Coller.Row + Coller.Rows.Count - 1 Step 2
Rows(i).PasteSpecial xlPasteFormats
Next i
End Sub
DanielBonjour Daniel,
Par exemple, j'ai copié la "ligne 4", j'ai sélectionné la "ligne 81", puis
=>Macro =>Exécuter.
Guy
"Daniel.C" <dcola, a écrit dans le message de news:Quelle ligne as-tu copiée et quelle zone as-tu sélectionnée ?
DanielBonjour Daniel,
Elle ne fonctionne pas, j'ai la ligne 4 qui est en jaune.
Avec le message :"La méthode PasteSpécial de la classe Range à échoué".
Cordialement
Guy
"Daniel.C" a écrit dans le message de news:
OC$Bonjour.
Essaie :
Sub CollerFormatUneLigneSurDeux()
Dim Ligne As Long
For i = Selection.Row To Selection.Row + Selection.Rows.Count - 1 Step
2
Rows(i).PasteSpecial xlPasteFormats
Next i
End Sub
DanielPour copier le format d'une ligne,il faut faire =>Copier, sélectionner
la ligne, sélectionner collage spécial, format et OK< >>>>>>> Est-il possible de simplifier cette tache quand il faut le coller
toute les deux lignes ?
Pareil pour "insérer".
Merci de votre aide.
Cordialement
Guy
Cela m'intéresserais beaucoup pour "Insérer un ligne".
"Daniel.C" <dcolardelleZZZ@gmail.com> a écrit dans le message de news:
eBeuaamoKHA.1552@TK2MSFTNGP05.phx.gbl...
Bonjour.
Le fait de faire "Macro, Exécuter" annule le copier. La macro suivante te
demande la ligne à copier, les lignes où le collage doit s'effectuer et
effectue le copier et le coller une ligne sur deux :
Sub CollerFormatUneLigneSurDeux()
Dim Ligne As Long, Copier As Range, Coller As Range
Set Copier = Application.InputBox("Sélectionnez la ligne à copier",
Type:=8)
Set Coller = Application.InputBox("Sélectionnez les lignes destinataires",
Type:=8)
Copier.Copy
For i = Coller.Row To Coller.Row + Coller.Rows.Count - 1 Step 2
Rows(i).PasteSpecial xlPasteFormats
Next i
End Sub
Daniel
Bonjour Daniel,
Par exemple, j'ai copié la "ligne 4", j'ai sélectionné la "ligne 81", puis
=>Macro =>Exécuter.
Guy
"Daniel.C" <dcola,rdelleZZZ@gmail.com> a écrit dans le message de news:
ucyXbUdoKHA.5696@TK2MSFTNGP04.phx.gbl...
Quelle ligne as-tu copiée et quelle zone as-tu sélectionnée ?
Daniel
Bonjour Daniel,
Elle ne fonctionne pas, j'ai la ligne 4 qui est en jaune.
Avec le message :"La méthode PasteSpécial de la classe Range à échoué".
Cordialement
Guy
"Daniel.C" <dcolardelleZZZ@gmail.com> a écrit dans le message de news:
OC$2UQaoKHA.1544@TK2MSFTNGP02.phx.gbl...
Bonjour.
Essaie :
Sub CollerFormatUneLigneSurDeux()
Dim Ligne As Long
For i = Selection.Row To Selection.Row + Selection.Rows.Count - 1 Step
2
Rows(i).PasteSpecial xlPasteFormats
Next i
End Sub
Daniel
Pour copier le format d'une ligne,il faut faire =>Copier, sélectionner
la ligne, sélectionner collage spécial, format et OK< >>>>>>> Est-il possible de simplifier cette tache quand il faut le coller
toute les deux lignes ?
Pareil pour "insérer".
Merci de votre aide.
Cordialement
Guy
Cela m'intéresserais beaucoup pour "Insérer un ligne".
"Daniel.C" a écrit dans le message de news:Bonjour.
Le fait de faire "Macro, Exécuter" annule le copier. La macro suivante te
demande la ligne à copier, les lignes où le collage doit s'effectuer et
effectue le copier et le coller une ligne sur deux :
Sub CollerFormatUneLigneSurDeux()
Dim Ligne As Long, Copier As Range, Coller As Range
Set Copier = Application.InputBox("Sélectionnez la ligne à copier",
Type:=8)
Set Coller = Application.InputBox("Sélectionnez les lignes destinataires",
Type:=8)
Copier.Copy
For i = Coller.Row To Coller.Row + Coller.Rows.Count - 1 Step 2
Rows(i).PasteSpecial xlPasteFormats
Next i
End Sub
DanielBonjour Daniel,
Par exemple, j'ai copié la "ligne 4", j'ai sélectionné la "ligne 81", puis
=>Macro =>Exécuter.
Guy
"Daniel.C" <dcola, a écrit dans le message de news:Quelle ligne as-tu copiée et quelle zone as-tu sélectionnée ?
DanielBonjour Daniel,
Elle ne fonctionne pas, j'ai la ligne 4 qui est en jaune.
Avec le message :"La méthode PasteSpécial de la classe Range à échoué".
Cordialement
Guy
"Daniel.C" a écrit dans le message de news:
OC$Bonjour.
Essaie :
Sub CollerFormatUneLigneSurDeux()
Dim Ligne As Long
For i = Selection.Row To Selection.Row + Selection.Rows.Count - 1 Step
2
Rows(i).PasteSpecial xlPasteFormats
Next i
End Sub
DanielPour copier le format d'une ligne,il faut faire =>Copier, sélectionner
la ligne, sélectionner collage spécial, format et OK< >>>>>>> Est-il possible de simplifier cette tache quand il faut le coller
toute les deux lignes ?
Pareil pour "insérer".
Merci de votre aide.
Cordialement
Guy