Salut question sur excel

Jedetesteexcelmaisjaipaslechoix -  
 ju -
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.

10 réponses

Réponse 1 / 10
Clark Devlin
 
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
0
Réponse 2 / 10
Chacalou13 Messages postés 405 Statut Membre 19
 
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
0
Jedetesteexcelmaisjaipaslechoix
 
Mail la est le probleme le copier coller dans un commentaire ne marche pas et je peux donc pas appliquer cette methode qui d'habitude est efficace.

c'est pour coller dans un commentaire...

merci quand meme

si vous avez d'autres idées...je suis prenneur merci d'avance.
0
Réponse 3 / 10
Chacalou13 Messages postés 405 Statut Membre 19
 
désolé j'avais pas vu que c'était dans un commentaire.
Alors je sais pô :-(

Grève de la signature
0
Réponse 4 / 10
jedetesteexcelmaisjaipaslechoix
 
bonjour,

tjrs personne n'a d'idée ?


merci a +
0

Vous n’avez pas trouvé la réponse que vous recherchez ?

Posez votre question
Réponse 5 / 10
nebulus Messages postés 47 Statut Membre 4
 
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
0
Réponse 6 / 10
jedetesteexcelmaisjaipaslechoix
 
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
0
Réponse 7 / 10
nebulus Messages postés 47 Statut Membre 4
 
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 :-)
0
Réponse 8 / 10
jedetesteexcelmaisjaipaslechoix
 
merci
0
Kobaya Messages postés 282 Date d'inscription   Statut Membre Dernière intervention   214
 
Hello,

pour répondre à ta question :
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

For Each wbClasseur in Workbooks
If wbClasseur.Name = "MonClasseur.xls" Then
wbClasseur.Select
Exit For
End If
Next

:-)
0
ju > Kobaya Messages postés 282 Date d'inscription   Statut Membre Dernière intervention  
 
I can't help you. Désol, mais moi et les macros c'est une longue histoire...
0
Réponse 9 / 10
gilles
 
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
0
Réponse 10 / 10
CORNEAU Julien
 
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
0