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

  1. 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
  2. Chacalou13 Messages postés 405 Statut Membre 21
     
    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
    1. 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
  3. Chacalou13 Messages postés 405 Statut Membre 21
     
    désolé j'avais pas vu que c'était dans un commentaire.
    Alors je sais pô :-(

    Grève de la signature
    0
  4. jedetesteexcelmaisjaipaslechoix
     
    bonjour,

    tjrs personne n'a d'idée ?

    merci a +
    0

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

    Posez votre question
  6. 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
  7. 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
  8. 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
  9. jedetesteexcelmaisjaipaslechoix
     
    merci
    0
    1. 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
      1. 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
  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
  11. 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