Bonjour,
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?
Merci beaucoup
Cordialement
Michaël
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?
Merci beaucoup
Cordialement
Michaël