J'ai un problème avec une macro. cette macro me sert à extraire un commentaire d'une colonne d'un tableau pour le coller dans une colonne d'un tableau d'une autre feuille.
Avant le tableau était sur la même feuille et cela ne posait pas de problème. j'ai du mettre le tableau sur une nouvelle feuille : la feuille "calcul". Je n'arrive pas à faire l'adaptation dans ma formule pour dir que le tableau n'est pas dans la même feuille.
Voici cette macro :
Dim Num As Long, Col As Long
Col = Application.Match("date 1", Range("A1:IV1"), 0)
For Num = 2 To 4000 'il ya 4000 lignes
If Not (Cells(Num, 12).Comment) Is Nothing Then
Cells(Num, Col) = Cells(Num, 12).Comment.Text
End If
Next Num
La colonne du tableau s'appelle toujours "date 1" du tableau est nommé "Tableaumacro" sur la feuille "Calculs".
Je pense que la modification doit se fair eau niveau de "Range" mais je n'y arrive pas.
Quelqu'un aurait il la gentillesse de m'aider?
Re : Problème de macro d'extraction de commentaire
Bonjour mickmick,
Peut-être comme ceci :
Code:
Dim Num As Long, Col As Long
Col = Application.Match("date 1", Range("A1:IV1"), 0)
For Num = 2 To 4000 'il ya 4000 lignes
If Not (Cells(Num, 12).Comment) Is Nothing Then
Sheets("Calculs").Cells(Num, Col) = Cells(Num, 12).Comment.Text
End If
Next Num
Re : Problème de macro d'extraction de commentaire
Salut Papou-net,
Merci d'avoir répondu à ma demande. J'ai essayé mais ça ne fonctionne pas. Peut-être car le commentaire sur trouve sur un tableau de la feuille "référence" ?
Re : Problème de macro d'extraction de commentaire
Pour être plus précis je peux résumer de la manière suivante.
Je souhaite extraire un commentaire de la feuille "Références" qui est colonne 12.
Je souhaite que ce commentaire soit collé dans le tableau "Tableaumacro" dans la colonne nommée "Date 1". Le tableau macro est dans la feuille "Calculs".
Re : Problème de macro d'extraction de commentaire
Bonjour mickmick,
En effet, ça me paraît plus clair.
Et si j'ai bien compris, voici ton fichier complété. J'ai attaché ta macro modifiée au bouton "Extraire", que j'ai ajouté à la feuille 'Référence". Mais elle peut être lancée par tout autre moyen possible.
Re : Problème de macro d'extraction de commentaire
Bonjour, merci beaucoup pour le temps que vous me consacrez.
J'ai essayez de réadapter ce bouton mais cela ne fonctionne pas. Il y'a une "erreur d'execution 13" sur cette ligne : Sheets("Calculs").Cells(Num, Col) = CDate(Sheets("Référence").Cells(Num, 12).Comment.Text)
Pourtant le nom des feuille est bon et c'est le bon numéro de colonne
Re : Problème de macro d'extraction de commentaire
C'est un tableau très très lourd avec beaucoup de feuilles. J'ai ai fait un résumé de deux feuilles dans l'exemple. Les variables son bonnes.
Pourrais-tu me montrer l'adaptation à ses feuille sur cette macro (et non avec un bouton de controle)?
Dim Num As Long, Col As Long
Col = Application.Match("date 1", Range("A1:IV1"), 0)
For Num = 2 To 4000 'il ya 4000 lignes
If Not (Cells(Num, 12).Comment) Is Nothing Then
Sheets("Calculs").Cells(Num, Col) = Cells(Num, 12).Comment.Text
End If
Next Num
Je veux bien essayer de t'aider davantage, mais je reste dans le vague.
Si tu ne veux pas que la macro se déclenche par un bouton de contrôle, alors de quelle façon désires-tu procéder ? Est-ce quand tu modifies un commentaire ou une cellule de la feuille Références ? Car il faut bien que VBA sache quand il doit exécuter ce code.