XL 2019 code vba pour copier cellule

chinel · 17 Décembre 2022

Bonjour le forum j'ai un code en vba qui fonctionne bien mais je désire ajouter une ligne . Quand je mets cette ligne (en bleu), rien ne se passe, merci de votre aide

Sub copiercellules()
Dim Derlig&
With Sheets("facture")
Derlig = .Range("A" & Rows.Count).End(xlUp).Row + 1
.Range("A" & Derlig).Value = Sheets("compte").Range("B4").Value
.Range("B" & Derlig).Value = Sheets("compte").Range("B5").Value
.Range("B" & Derlig).Value = Sheets("compte").Range("B8").Value
.Range("A3:B" & Derlig).RemoveDuplicates Columns:=1, Header:=xlNo
End With
End Sub

chinel · 17 Décembre 2022

vgendron à dit:
Derlig ne change pas entre la copie de B8 et la copie de B10
soit tu mets Derlig à jour
soit tu décales de 1==> Derlig+1

c'est quoi le mieux ? et quelle est la différence ?

chinel · 17 Décembre 2022

problème résolu, un grand merci et bon week-end !

vgendron · 17 Décembre 2022

le mieux.. y en a pas.. ==> le +1 je dirais.. ca évite de recalculer Derlig

par contre.. si tu lances deux fois de suite ta macro.. la valeur de B10 sera ecrasée. puisque le derlig arrivera sur la ligne du B10....

j'explique
1) ton tableau "Compte" est vide: il n'y a QUE les entetes en ligne1
2) tu lances la macro
==> Derlig =2
A2 - B2 et C2 sont remplies avec les valeurs de B4 -B5 et B8
C3 remplie avec B10

3) tu lances une seconde fois la macro
Derlig = 3
A3 B3 et C3 sont remplies avec les valeurs de B4 -B5 et B8
==> et donc C3 du premier run est écrasée..

pour éviter ca
Derlig=.range("C" &.rows.count).end(xlup).row+1

chinel · 17 Décembre 2022

vgendron à dit:
le mieux.. y en a pas.. ==> le +1 je dirais.. ca évite de recalculer Derlig

par contre.. si tu lances deux fois de suite ta macro.. la valeur de B10 sera ecrasée. puisque le derlig arrivera sur la ligne du B10....

j'explique
1) ton tableau "Compte" est vide: il n'y a QUE les entetes en ligne1
2) tu lances la macro
==> Derlig =2
A2 - B2 et C2 sont remplies avec les valeurs de B4 -B5 et B8
C3 remplie avec B10

3) tu lances une seconde fois la macro
Derlig = 3
A3 B3 et C3 sont remplies avec les valeurs de B4 -B5 et B8
==> et donc C3 du premier run est écrasée..

pour éviter ca
Derlig=.range("C" &.rows.count).end(xlup).row+1

merci pour ton explication. une autre petite question j'ai un souci avec "RemoveDuplicates" qui ne fonction que avec certaines colonnes

chinel · 17 Décembre 2022

Sub copiercellules()
Dim Derlig&
With Sheets("facture")
Derlig = .Range("A" & Rows.Count).End(xlUp).Row + 1
.Range("A" & Derlig).Value = Sheets("compte").Range("B4").Value
.Range("B" & Derlig).Value = Sheets("compte").Range("B5").Value
.Range("B" & Derlig+1).Value = Sheets("compte").Range("B8").Value
.Range("A3:B" & Derlig).RemoveDuplicates Columns:=1, Header:=xlNo
End With
End Sub

j'ai bien mis "Derlig+1" et cela fonctionne mais cela n'évite pas les doublons

chinel · 17 Décembre 2022

je pense que le problème vient de:
.Range("A3:B" & Derlig).RemoveDuplicates Columns:=1, Header:=xlNo
dois-je modifier "Derlig" en "Derling+1" ?

chinel · 17 Décembre 2022

.Range("A3:B" & Derlig).RemoveDuplicates Columns:=1, Header:=xlNo j'ai modifié en
.Range("A3:B" & Derlig).RemoveDuplicates Columns:=Array(1, 2,), Header:=xlNo et cela me semble bon mais sans certitudes.

XL 2019 code vba pour copier cellule

chinel

XLDnaute Impliqué

chinel

chinel

XLDnaute Impliqué

vgendron

XLDnaute Barbatruc

chinel

XLDnaute Impliqué

chinel

XLDnaute Impliqué

chinel

XLDnaute Impliqué

chinel

XLDnaute Impliqué

Discussions similaires