VBA : Problème avec ajouts et suppressions de ligne

[mickmick]

Bonjour,

J'utilise une formule VBA me permettant d'extraire un commentaire d'une colonne pour l'insérer dans une autre cellule.

Voici cette formule :

Sub Macro2()
'
' Extrait le commentaire s'il existe
' de la colonne B vers la colonne C
Dim Num As Long

For Num = 2 To 4000 'il ya 4000 lignes
If Not (Cells(Num, 13).Comment) Is Nothing Then
Cells(Num, 62) = Cells(Num, 13).Comment.Text
End If
Next Num
End Sub

Mon problème est le suivant :
Comme vous pouvez le comprendre, cette formule extrait le commentaire de la colonne 13 pour le coller dans la colonne 62.
Il n'y a aucune suppression ou ajout de colonne avant la colonne 14. Mais après chaque semaine il y'a des ajouts et suppression de colonne. Cela entraine un collage du commentaire au mauvais endroit. (car la colonne 62 n'est plus la bonne).

Comment faire pour que ce collage se fasse dans la bonne colonne qui n'est jamais positionné au même endroit.

Merci beaucoup pour votre aide.

Bien cordialement

Michaël

 

[tototiti2008]

Re : VBA : Problème avec ajouts et suppressions de ligne

Bonjour mickmick,

Le commentaire reste toujours en colonne 13 ?
La colonne où écrire le contenu du commentaire a-t-elle un titre identifiable ?

 

[mickmick]

Re : VBA : Problème avec ajouts et suppressions de ligne

Bonjour,

Oui le commentaire est toujours en colonne 13.
La colone est dans un tableau nommé "tableau 1" est c'est la colonne "date 1".

Merci

 

[tototiti2008]

Re : VBA : Problème avec ajouts et suppressions de ligne

Re,

à tester

Sub Macro2()
'
' Extrait le commentaire s'il existe
' de la colonne B vers la colonne C
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, 13).Comment) Is Nothing Then
Cells(Num, Col) = Cells(Num, 13).Comment.Text
End If
Next Num
End Sub

 

[mickmick]

Re : VBA : Problème avec ajouts et suppressions de ligne

ça n'a pas l'air de fonctionner. Il y'a un beug sur cette ligne : Col =Application.match("date 1",Range("A1:IV1"),0)

 

[tototiti2008]

Re : VBA : Problème avec ajouts et suppressions de ligne

Re,

Le mot "date 1" existe dans la 1ère ligne de la feuille ?
Si oui, est-ce qu'il est écrit comme ça (pas d'espace en plus derrière ?)

 

[mickmick]

Re : VBA : Problème avec ajouts et suppressions de ligne

Bon ça marche très bien maintenan (en effet il y'avais un espace en trop) merci beaucoup beaucoup !

Bonne journée