XL 2013 remplir derniere colonne d'un tableau

vgendron

XLDnaute Barbatruc

• 25 Janvier 2017

• #2

Bonjour

en essayant ce code peut etre

VB:

LastCol = ActiveSheet.UsedRange.Columns.Count
LastLine = ActiveSheet.UsedRange.Rows.Count
Range(Cells(1, LastCol), Cells(LastLine, LastCol)) = 50

 

Vote positif 0 Vote négatif

vgendron

XLDnaute Barbatruc

• 25 Janvier 2017

• #3

quant au pourquoi de ton pb d'incompatibilité de type..
ActiveSheet.UsedRange.Columns.Count est un nombre...
val(ActiveSheet.UsedRange.Columns.Count) est aussi un nombre.. mais je vois pas l'intérêt de la fonction Val dans ce cas...??
columns(val(ActiveSheet.UsedRange.Columns.Count)) : c'est TOUTE la colonne = range
cells(o,columns(val(ActiveSheet.UsedRange.Columns.Count))) BUG.. CELLs demande DEUX nombres; ligne et colonne

 

Vote positif 0 Vote négatif

B

Boo2bafoot

XLDnaute Nouveau

• 25 Janvier 2017

• #4

vgendron à dit:

Bonjour

en essayant ce code peut etre

VB:

LastCol = ActiveSheet.UsedRange.Columns.Count
LastLine = ActiveSheet.UsedRange.Rows.Count
Range(Cells(1, LastCol), Cells(LastLine, LastCol)) = 50

Cliquez pour agrandir...

Bonjour à tous les 2,
Si je peux apporter ma contribution, je pense que dans le code proposé par vgendron, il faudrait plutôt pour ne pas remplacer les valeurs de la dernière colonne mais bien remplir la 1ère colonne vide faire plutôt

Code:

LastCol = ActiveSheet.UsedRange.Columns.Count
LastLine = ActiveSheet.UsedRange.Rows.Count
Range(Cells(1, LastCol +1 ), Cells(LastLine, LastCol)) = 50

Cordialement,

 

Vote positif 0 Vote négatif

vgendron

XLDnaute Barbatruc

• 25 Janvier 2017

• #5

salut Boo2bafoot,
exact, tu as raison
et notre ami Artica aura corrigé tout seul
soit
lastcol=LastCol = ActiveSheet.UsedRange.Columns.Count+1
LastLine = ActiveSheet.UsedRange.Rows.Count
Range(Cells(1, LastCol ), Cells(LastLine, LastCol)) = 50

soit
lastcol=LastCol = ActiveSheet.UsedRange.Columns.Count
LastLine = ActiveSheet.UsedRange.Rows.Count
Range(Cells(1, LastCol +1), Cells(LastLine, LastCol+1)) = 50

ou encore
lastCol = ActiveSheet.UsedRange.Columns.Count + 1
lastline = ActiveSheet.UsedRange.Rows.Count
Cells(1, lastCol).Resize(lastline) = 50

 

Vote positif 0 Vote négatif

B

Boo2bafoot

XLDnaute Nouveau

• 25 Janvier 2017

• #6

Salut vgendron,

Je ne connaissais pas la manière de faire avec ta dernière instruction .resize(variable)= ....

ça va bien m'aider, ça !
Merci pour le partage

 

Vote positif 0 Vote négatif

Arctica67

XLDnaute Nouveau

• 25 Janvier 2017

• #7

je viens de ressortir d'une réunion, j'ai testé vos codes qui marchent
merci a vous vgendron et boo2bafoot c'est une avancée pour moi car je
ne m'en sortais pas

 

Vote positif 0 Vote négatif