Bonjour,
je seche sur un truc tout simple
je copie des donnees sur une feuille via un bouton vba (une liste de
150 personnes) voici une partie du code
[A6500].End(xlUp).Offset(0, 1).Select
Selection.PasteSpecial Paste:=xlPasteValuesAndNumberFormats,
Operation:= _xlNone, SkipBlanks:=False, Transpose:=False
en colonne A de cette nouvelle feuille je voudrais une numerotation qui
s'arrete au nbre de personnes
A1 =1
ActiveCell.Offset(0, -1) = ActiveCell.Offset(-1, -1) + 1
et je n'ai que 1 en A , alors je seche pourtant elle fonctionne sur une
autre procedure
Cette action est irreversible, confirmez la suppression du commentaire ?
Signaler le commentaire
Veuillez sélectionner un problème
Nudité
Violence
Harcèlement
Fraude
Vente illégale
Discours haineux
Terrorisme
Autre
andre
andre à dit j'ai modifie par une boucle je recupere la valeur du nbre de pers for i =1 to nbre activecell = i activecell.offset(1, 0).select next i 'l'incrementation fonctionne mais j'ai un decalage sur la copie de ma liste egale au nbre de personnes un essai sur 10 pers je commence en A1 =1 jusqu'a A10 la liste commence en B11
-- andre
andre à dit
j'ai modifie par une boucle je recupere la valeur du nbre de pers
for i =1 to nbre
activecell = i
activecell.offset(1, 0).select
next i 'l'incrementation fonctionne
mais j'ai un decalage sur la copie de ma liste egale au nbre de
personnes
un essai sur 10 pers je commence en A1 =1 jusqu'a A10
la liste commence en B11
andre à dit j'ai modifie par une boucle je recupere la valeur du nbre de pers for i =1 to nbre activecell = i activecell.offset(1, 0).select next i 'l'incrementation fonctionne mais j'ai un decalage sur la copie de ma liste egale au nbre de personnes un essai sur 10 pers je commence en A1 =1 jusqu'a A10 la liste commence en B11
-- andre
Garette
Bonsoir,
Le code suivant incremente de 1 à X dans la colonne B en fonction du nb de données X contenu dans la colonne A A inséré dans ton code.
Sub test() With Range([A6500].End(xlUp), [A6500].End(xlUp).End(xlUp)).Offset(0, 1) .Value = 1 .DataSeries End With End Sub
"andre" a écrit dans le message de news:
Bonjour, je seche sur un truc tout simple je copie des donnees sur une feuille via un bouton vba (une liste de 150 personnes) voici une partie du code [A6500].End(xlUp).Offset(0, 1).Select Selection.PasteSpecial Paste:=xlPasteValuesAndNumberFormats, Operation:= _xlNone, SkipBlanks:úlse, Transpose:úlse en colonne A de cette nouvelle feuille je voudrais une numerotation qui s'arrete au nbre de personnes A1 =1 ActiveCell.Offset(0, -1) = ActiveCell.Offset(-1, -1) + 1 et je n'ai que 1 en A , alors je seche pourtant elle fonctionne sur une autre procedure
merci
-- andre
Bonsoir,
Le code suivant incremente de 1 à X dans la colonne B en fonction du nb de
données X contenu dans la colonne A
A inséré dans ton code.
Sub test()
With Range([A6500].End(xlUp), [A6500].End(xlUp).End(xlUp)).Offset(0, 1)
.Value = 1
.DataSeries
End With
End Sub
"andre" <andre260@cegetel.net> a écrit dans le message de news:
mn.bc437d722a615dfe.51150@cegetel.net...
Bonjour,
je seche sur un truc tout simple
je copie des donnees sur une feuille via un bouton vba (une liste de 150
personnes) voici une partie du code
[A6500].End(xlUp).Offset(0, 1).Select
Selection.PasteSpecial Paste:=xlPasteValuesAndNumberFormats, Operation:=
_xlNone, SkipBlanks:úlse, Transpose:úlse
en colonne A de cette nouvelle feuille je voudrais une numerotation qui
s'arrete au nbre de personnes
A1 =1
ActiveCell.Offset(0, -1) = ActiveCell.Offset(-1, -1) + 1
et je n'ai que 1 en A , alors je seche pourtant elle fonctionne sur une
autre procedure
Le code suivant incremente de 1 à X dans la colonne B en fonction du nb de données X contenu dans la colonne A A inséré dans ton code.
Sub test() With Range([A6500].End(xlUp), [A6500].End(xlUp).End(xlUp)).Offset(0, 1) .Value = 1 .DataSeries End With End Sub
"andre" a écrit dans le message de news:
Bonjour, je seche sur un truc tout simple je copie des donnees sur une feuille via un bouton vba (une liste de 150 personnes) voici une partie du code [A6500].End(xlUp).Offset(0, 1).Select Selection.PasteSpecial Paste:=xlPasteValuesAndNumberFormats, Operation:= _xlNone, SkipBlanks:úlse, Transpose:úlse en colonne A de cette nouvelle feuille je voudrais une numerotation qui s'arrete au nbre de personnes A1 =1 ActiveCell.Offset(0, -1) = ActiveCell.Offset(-1, -1) + 1 et je n'ai que 1 en A , alors je seche pourtant elle fonctionne sur une autre procedure
merci
-- andre
andre
andre à dit
Bonsoir,
Le code suivant incremente de 1 à X dans la colonne B en fonction du nb de données X contenu dans la colonne A A inséré dans ton code.
Sub test() With Range([A6500].End(xlUp), [A6500].End(xlUp).End(xlUp)).Offset(0, 1) .Value = 1 .DataSeries End With End Sub merci garette
mon code refonctionne il fallait que je fasse ma boucle for next apreqs le collage special merci
-- andre
andre à dit
Bonsoir,
Le code suivant incremente de 1 à X dans la colonne B en fonction du nb de
données X contenu dans la colonne A
A inséré dans ton code.
Sub test()
With Range([A6500].End(xlUp), [A6500].End(xlUp).End(xlUp)).Offset(0, 1)
.Value = 1
.DataSeries
End With
End Sub
merci garette
mon code refonctionne
il fallait que je fasse ma boucle for next apreqs le collage special
merci
Le code suivant incremente de 1 à X dans la colonne B en fonction du nb de données X contenu dans la colonne A A inséré dans ton code.
Sub test() With Range([A6500].End(xlUp), [A6500].End(xlUp).End(xlUp)).Offset(0, 1) .Value = 1 .DataSeries End With End Sub merci garette
mon code refonctionne il fallait que je fasse ma boucle for next apreqs le collage special merci
-- andre
andre
andre à dit
Bonsoir,
Le code suivant incremente de 1 à X dans la colonne B en fonction du nb de données X contenu dans la colonne A A inséré dans ton code.
Sub test() With Range([A6500].End(xlUp), [A6500].End(xlUp).End(xlUp)).Offset(0, 1) .Value = 1 .DataSeries End With End Sub par contre dans un pied de page je n'arrive a rentrer la valeur de 2 cellules
With Sh.PageSetup .RightHeader = Sheets("za").Range("C2").Value .Rightfooter = sheets("zaza").Range("D3:E3").Value et aussi d'avoir le format en euro
-- andre
andre à dit
Bonsoir,
Le code suivant incremente de 1 à X dans la colonne B en fonction du nb de
données X contenu dans la colonne A
A inséré dans ton code.
Sub test()
With Range([A6500].End(xlUp), [A6500].End(xlUp).End(xlUp)).Offset(0, 1)
.Value = 1
.DataSeries
End With
End Sub
par contre dans un pied de page je n'arrive a rentrer la valeur de 2 cellules
With Sh.PageSetup
.RightHeader = Sheets("za").Range("C2").Value
.Rightfooter = sheets("zaza").Range("D3:E3").Value
et aussi d'avoir le format en euro
Le code suivant incremente de 1 à X dans la colonne B en fonction du nb de données X contenu dans la colonne A A inséré dans ton code.
Sub test() With Range([A6500].End(xlUp), [A6500].End(xlUp).End(xlUp)).Offset(0, 1) .Value = 1 .DataSeries End With End Sub par contre dans un pied de page je n'arrive a rentrer la valeur de 2 cellules
With Sh.PageSetup .RightHeader = Sheets("za").Range("C2").Value .Rightfooter = sheets("zaza").Range("D3:E3").Value et aussi d'avoir le format en euro
