pb de commentaire

flo2002

XLDnaute Impliqué

• 27 Juillet 2006

• #2

Re : pb de commentaire

bonjour,
peux tu faire passer un petit bout de code.

 

Vote positif 0 Vote négatif

M

maelys

XLDnaute Junior

• 27 Juillet 2006

• #3

Re : pb de commentaire

coucou
je vous joins donc le fichier qui me pose probleme.
merci de votre aide

 

Pièces jointes

• Balance Aflon.zip

  15.3 KB · Affichages: 31
• Balance Aflon.zip

  15.3 KB · Affichages: 29
• Balance Aflon.zip

  15.3 KB · Affichages: 28

Vote positif 0 Vote négatif

ziopizza

XLDnaute Occasionnel

• 27 Juillet 2006

• #4

Re : pb de commentaire

Bonjour Maelys,flo2002,

ce bout de code déplace la cellule selectionnés et son commentaire.
Sub Macro1()
Selection.Insert Shift:=xlToRight
End Sub
@+ Yves

 

Vote positif 0 Vote négatif

M

maelys

XLDnaute Junior

• 27 Juillet 2006

• #5

Re : pb de commentaire

coucou
encore moi, je viens de taper ce code, cependant il m affiche comme erreur qu il attend une fin d instruction, vu que je veux selectionner la cellule(10.1) de la feuille 1 , j ai tape ceci, est ce bon?
selection.sheet(hoja1).cells(10,1):=xlto right
merci beaucoup

 

Vote positif 0 Vote négatif

flo2002

XLDnaute Impliqué

• 27 Juillet 2006

• #6

Re : pb de commentaire

selection.sheet("hoja1").cells(10,1):=xlto right

les "" si ce n'est pas une variable.
enfin je dis ca moi en meme temps je suis loin de m'y connaitre...

 

Vote positif 0 Vote négatif

ziopizza

XLDnaute Occasionnel

• 27 Juillet 2006

• #7

Re : pb de commentaire

Re bonjour ,
Essaye comme çà.

Sheets("Hoja1").Cells(10, 1).Insert Shift:=xlToRight
@+Yves

 

Vote positif 0 Vote négatif

M

maelys

XLDnaute Junior

• 28 Juillet 2006

• #8

Re : pb de commentaire

coucou
je viens d essayer le code et il m affiche le message d erreur suivant:
erreur de la definition de l application ou de l objet.
je crois que c est la methode insert qui ne fonctionne pas.
merci d avance

 

Vote positif 0 Vote négatif

ziopizza

XLDnaute Occasionnel

• 28 Juillet 2006

• #9

Re : pb de commentaire

Re bonjour a tous,
ce code marche trés bien chez moi ?
donne tu le bon nom de feuille ("Hoja1").??
Sheets("Hoja1").Cells(10, 1).Insert Shift:=xlToRight
@+ Yves

 

Vote positif 0 Vote négatif

M

maelys

XLDnaute Junior

• 28 Juillet 2006

• #10

Re : pb de commentaire

coucou
decidemment non ca ne marche pas pourrais tu m indiquer si ce bout de code tu l as bien mis dans la feuille 1 et si tu l as fait directement sur le fichier joint serait il possible que tu me l envoies ou ton exemple stp
merci bcp

 

Vote positif 0 Vote négatif

ziopizza

XLDnaute Occasionnel

• 28 Juillet 2006

• #11

Re : pb de commentaire

re Bonjour a tous ,
Un petit exemple joins,
@+
Yves

 

Pièces jointes

• inser.zip

  7.5 KB · Affichages: 30

Vote positif 0 Vote négatif

M

maelys

XLDnaute Junior

• 28 Juillet 2006

• #12

Re : pb de commentaire

coucou
je viens de m apercevoir qu en fait je veux deplacer les cellules vers la gauche du coup je changais tes formules avec xltoleft et c est a ce moment la qu il me met une erreur.
merci bcp

 

Vote positif 0 Vote négatif