salut question sur excel

Question

Bonjour,

Comment on fait pour coller un texte dans un commentaire de case(via macro).

recuperer le texte de par exemple ligne 4 colones a->h
coller dans un commentaire sur la case A30....

ceci doit obligatoirement etre fait a travers une macro but automatiser la tache de mise en page.

Clark Devlin · Answer

Salut!Il me semble que tu as juste à écrire:Range(cells(4,1),cells(4,8)).CutRange("A30").Paste...à moins que j'ai mal compris ta question

Chacalou13 · Answer

Bonjour,Tu fais ton copier - coller en enregistrant ta macro.Puis ensuite, tu va voir ton code VB et tu modifie à souhait.Grève de la signature

Chacalou13 · Answer

désolé j'avais pas vu que c'était dans un commentaire.Alors je sais pô :-(Grève de la signature

jedetesteexcelmaisjaipaslechoix · Answer

bonjour,tjrs personne n'a d'idée ?merci a +

nebulus · Answer

salut,

Ceci correspondrait-il à ce que tu cherches ?

    Dim machaine As String
    For i = 1 To 8
      machaine = machaine & ActiveSheet.Cells(4, i).Text
    Next i
    Range("A30").AddComment
    Range("A30").Comment.Text Text:=machaine

@+
Nebulus

jedetesteexcelmaisjaipaslechoix · Answer

on y est presque il reste deux problemes

1-le retour chariot en fin de ligne n'est pas géré ?
2-les espaces non plus....

Sub titi()
For j = 1 To 9
If Cells(1, j) = padiap1 Then
Application.ScreenUpdating = False
Range("B4:I7").Select
Application.CutCopyMode = False
Selection.Copy
Range("A31").Select
ActiveSheet.Paste
Dim machaine As String
For y = 1 To 4
For b = 1 To 8
machaine = machaine & ActiveSheet.Cells(b, y).Text
Next b
machaine = machaine + Chr(13)
Next y
Range("A51").AddComment
Range("A51").Comment.Text Text:=machaine
End If
Next j
End Sub

nebulus · Answer

et bien pour le retour chariot, je suppose que tu souhaite le placer à cette ligne :
machaine = machaine + Chr(13)
que tu peux remplacer par
machaine = machaine + vbCrLf

et pour l'espace entre chaque cellule, y'a moyen de faire comme suit:
machaine = machaine & ActiveSheet.Cells(b, y).Text & " "
c'est pas hyper-propre parce que t'auras toujours un espace en fin de ligne, mais c'est rapide et facile :-)

jedetesteexcelmaisjaipaslechoix · Answer

merci

gilles · Answer

J'ai un petit soucis sur excel 2000.
Je voudrais via une macro visual savoir si
un fichier excel est ouvert sur le poste.
Ceci dans le but de ne pas l'ouvrir une deuxième
fois s'il à déjà été ouvert

merci par avance

CORNEAU Julien · Answer

En ce qui concerne le problème que j'avais pour insérer un numéro de page dans une cellule, j'ai simplement utilisé les entètes/pieds de page. Merci qd même à Dje Dje ! La solution que tu m'avais proposée n'a pas fonctionner sur mes fichiers, alors j'ai laissé tombé "pourquoi faire compliqué alors qau'on peut faire simple".
Merci encore !
Ju

Salut question sur excel

10 réponses

Newsletters