OVH Cloud OVH Cloud

Help Macro !!

9 réponses
Avatar
JPP
Bonjour

Je voudrai copier le contenu de la cellule "A5" vers la=20
droite jusqu'=E0 la derni=E8re cellule vide avec la macro=20
suivante :

"Range("A5").Select
Range(Selection, Selection.End(xlToRight)).Select
Selection.FillRight"

le probl=E8me est que cette macro recopie vers la droite y=20
compris la premi=E8re cellule pleine comment faire pour que=20
ma s=E9lection ne s=E9lecte que les cellules vide
Merci d'avance

9 réponses

Avatar
AV
Range("A5:" & [A5].End(xlToRight).Offset(0, -1).Address) = [A5]

AV
Avatar
anomymousA
bonjour,

peut-être d'autres que moi trouverons uen solution avec FillRight mais en
tout cas pas moi.
Ce que je peux te proposer à la place c'est

For I=selection.column+1 to 256
if not isempty(cells(selection.row,I)) then
else
cells(selection.row,I).valueÎlls(selection.row, selection.column)
end if
next

A+


Bonjour

Je voudrai copier le contenu de la cellule "A5" vers la
droite jusqu'à la dernière cellule vide avec la macro
suivante :

"Range("A5").Select
Range(Selection, Selection.End(xlToRight)).Select
Selection.FillRight"

le problème est que cette macro recopie vers la droite y
compris la première cellule pleine comment faire pour que
ma sélection ne sélecte que les cellules vide
Merci d'avance



Avatar
Denis
Bonjour,
Range("A5").Select
Range(Selection, Selection.End(xlToRight).Offset(0, -
1)).Select
Selection.FillRight


Denis

-----Message d'origine-----
Bonjour

Je voudrai copier le contenu de la cellule "A5" vers la
droite jusqu'à la dernière cellule vide avec la macro
suivante :

"Range("A5").Select
Range(Selection, Selection.End(xlToRight)).Select
Selection.FillRight"

le problème est que cette macro recopie vers la droite y
compris la première cellule pleine comment faire pour que
ma sélection ne sélecte que les cellules vide
Merci d'avance
.



Avatar
Desolé mais cela ne donne rien

??
-----Message d'origine-----
Range("A5:" & [A5].End(xlToRight).Offset(0, -1).Address)
= [A5]


AV


.



Avatar
Denis
Bien sûr, tu peux simplifier par exemple :
Range([A5], [A5].End(xlToRight).Offset(0, -1)).FillRight
Denis
-----Message d'origine-----
Bonjour,
Range("A5").Select
Range(Selection, Selection.End(xlToRight).Offset(0, -
1)).Select
Selection.FillRight


Denis

-----Message d'origine-----
Bonjour

Je voudrai copier le contenu de la cellule "A5" vers la
droite jusqu'à la dernière cellule vide avec la macro
suivante :

"Range("A5").Select
Range(Selection, Selection.End(xlToRight)).Select
Selection.FillRight"

le problème est que cette macro recopie vers la droite y
compris la première cellule pleine comment faire pour
que


ma sélection ne sélecte que les cellules vide
Merci d'avance
.

.





Avatar
Super merci BCP

JPP
-----Message d'origine-----
Bonjour,
Range("A5").Select
Range(Selection, Selection.End(xlToRight).Offset(0, -
1)).Select
Selection.FillRight


Denis

-----Message d'origine-----
Bonjour

Je voudrai copier le contenu de la cellule "A5" vers la
droite jusqu'à la dernière cellule vide avec la macro
suivante :

"Range("A5").Select
Range(Selection, Selection.End(xlToRight)).Select
Selection.FillRight"

le problème est que cette macro recopie vers la droite y
compris la première cellule pleine comment faire pour
que


ma sélection ne sélecte que les cellules vide
Merci d'avance
.

.





Avatar
AV
Desolé mais cela ne donne rien


C'est trés étonnant....
Un micro-climat..?

AV

Avatar
Desole cela ete de ma faute maintenant ca marche

Merci BCP
-----Message d'origine-----
Desolé mais cela ne donne rien


C'est trés étonnant....
Un micro-climat..?

AV


.




Avatar
AV
Desole cela ete de ma faute maintenant ca marche


Ok pas grave et merci du retour !
AV