Salut question sur excel

Jedetesteexcelmaisjaipaslechoix -  
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
    1. Chacalou13
      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
    2. Chacalou13
      désolé j'avais pas vu que c'était dans un commentaire.
      Alors je sais pô :-(

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

        tjrs personne n'a d'idée ?

        merci a +
        0
        2. nebulus
          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
          1. 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
            1. nebulus
              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
              1. jedetesteexcelmaisjaipaslechoix
                merci
                0
                1. Kobaya
                  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
                2. ju
                  @KobayaI can't help you. Désol, mais moi et les macros c'est une longue histoire...
                  0
              2. 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
                1. 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