XL 2016 Modif code, transfert ligne par ligne

Scorpio · 20 Février 2019

Bonjour à tous,
J'ai un soucis dans un code, voici sont nom, Sub DepLigneCouleur()
En fait ce code transfert ligne par ligne de la feuille "FactureOuverte" à la feuille "FacturePayé", si le texte est en rouge dans la colonne "A". Faire double-Clic en colonne "A"
Mais, j'aimerais transférer seulement de la colonne A à I, et ce code me transfert la ligne jusqu'à O
Y aurait-il un membre pour me donner un coup de pouce s'il vous plaît
Merci, a ++++

job75 · 20 Février 2019

Bonjour Scorpio,

Remplacer la ligne :

Code:

                cel.EntireRow.Cut dercel(2)   'coupe et colle la ligne

par ces 2 lignes :

Code:

                cel.Resize(, 9).Copy dercel(2) 'copie la plage
                cel = "" 'pour ensuite permettre la suppession de la ligne

A+

Scorpio · 20 Février 2019

Bonjour job75,
Super, ça marche bien, j'ai corrigé le 9 par 8, car je me suis trompé, c'est jusqu'à la colonne H.
Si non, merci beaucoup, très gentil.
A+++++job75

XL 2016 Modif code, transfert ligne par ligne

Scorpio

XLDnaute Impliqué

Pièces jointes

job75

XLDnaute Barbatruc

Scorpio

XLDnaute Impliqué

Discussions similaires

XL 2016 Modif code, transfert ligne par ligne

Scorpio

XLDnaute Impliqué

Pièces jointes

job75

XLDnaute Barbatruc

Scorpio

XLDnaute Impliqué

Discussions similaires

Privacy & Transparency

Privacy & Transparency