selection première ligne vide et copie de valeur

Modeste

XLDnaute Barbatruc

• 27 Mars 2012

• #2

Re : selection première ligne vide et copie de valeur

Bonjour brux40,

En admettant que j'aie bien compris, ceci copie les 10 dernières cellules de la colonne A et colle le résultat en laissant 2 lignes vides:

VB:

With Sheets("base de donnee")
    .[A50000].End(xlUp).Offset(-9, 0).Resize(10, 1).Copy Destination:=.[A50000].End(xlUp).Offset(3, 0).Resize(10, 1)
End With

... à toi de voir si ça correspond! Je ne me suis pas occupé de ce que tu voudrais faire ... dans un second temps

 

Vote positif 0 Vote négatif

B

brux40

XLDnaute Nouveau

• 27 Mars 2012

• #3

Re : selection première ligne vide et copie de valeur

Bonjour Modeste,

je teste sa dessuite.
Mais merci beaucoup en tout cas.

 

Vote positif 0 Vote négatif

B

brux40

XLDnaute Nouveau

• 27 Mars 2012

• #4

Re : selection première ligne vide et copie de valeur

Sa marche très bien merci beaucoup.

Mais est-il possible de nommer la cellule sélectionné, par exemple "j".
Cela serait-il pas plus simple??

 

Vote positif 0 Vote négatif

Modeste

XLDnaute Barbatruc

• 27 Mars 2012

• #5

Re : selection première ligne vide et copie de valeur

Re-bonjour,

est-il possible de nommer la cellule sélectionné, par exemple "j"

Cliquez pour agrandir...

Tu veux dire: utiliser une variable de type Range? Si oui, ce qui suit ressemblerait à ce que tu imagines?

VB:

Dim j As Range
With Sheets("base de donnee")
    Set j = .[A50000].End(xlUp)
    j.Offset(-9, 0).Resize(10, 1).Copy Destination:=j.Offset(3, 0).Resize(10, 1)
End With

 

Vote positif 0 Vote négatif

B

brux40

XLDnaute Nouveau

• 27 Mars 2012

• #6

Re : selection première ligne vide et copie de valeur

Oui c'est à sa que je pensais

Merci beaucoup sa fonctionne parfaitement.
Mais je pensais plus à une programmation de ce style pour faire le copié collé

Set j = .[A50000].End(xlUp)
.Range("A" & j - 10 & ":A" & j - 1).Copy Destination:=.Range("A" & j + 2 & ":A" & j + 11)

Je ne sais pas si c'est possible car je débute en programmation

 

Vote positif 0 Vote négatif

Modeste

XLDnaute Barbatruc

• 27 Mars 2012

• #7

Re : selection première ligne vide et copie de valeur

Re²,

Tu peux effectivement écrire quelque chose comme ce qui suit. Attention au type de variable utilisé et aux petites différences de syntaxe (pas de "Set", un ".row", ...)

VB:

Dim j As Long
validation.Hide
With Sheets("base de donnee")
    j = .[A50000].End(xlUp).Row
    .Range("A" & j - 10 & ":A" & j - 1).Copy Destination:=.Range("A" & j + 2 & ":A" & j + 11)
End With

Ceci dit, il faudra vérifier les valeurs utilisées (-10, -1, etc.): pas certain que tu obtiennes précisément le résultat attendu
"j = .[A50000].End(xlUp).Row" donne le numéro de la dernière cellule non-vide, en colonne A

 

Vote positif 0 Vote négatif

B

brux40

XLDnaute Nouveau

• 27 Mars 2012

• #8

Re : selection première ligne vide et copie de valeur

D'accord je vai vérifier tout cela,

Franchement merci beaucoup sa m'a bien aidé dans mes macros.
Par sera t-il possible de faire des copié collé de cellule dans les colonne suivante (B,C,D....)
Je pense que oui, il suffira de modifier le nom de la colonne

.....Copy Destination := .Range("B"......)


Merci encore une fois pour ton aide

 

Vote positif 0 Vote négatif