Anthonymctm
XLDnaute Occasionnel
Bonjour le forum !
Je solicite votre aide pour rectifier un détail sur ma macro.
La macro n'est pas de moi mais j'ai remarqué un petit problème.
Le but c'est de faire un retour du contenu d'une colonne variant de K à AA à la position H
Le code est le suivant :
Le problème c'est qu'il copie précisément le contenu de la formule donc le décalage ne prend pas.
Si je fais un retour en étude de la colonne K à la colonne H, les formules qui prenaient K garde K alors qu'elle devrait passer sur H comme les autres macros.
J'ai essayé de remplacer C.Value = Cells(C.Row, Col).Formula
par C.Copy
Cells(C.Row, Col).PasteSpecial xlPasteFormulas
Qui est utilisé dans les autres macros mais ça ne fonctionne pas.
Un idée ? :')
Je solicite votre aide pour rectifier un détail sur ma macro.
La macro n'est pas de moi mais j'ai remarqué un petit problème.
Le but c'est de faire un retour du contenu d'une colonne variant de K à AA à la position H
Le code est le suivant :
VB:
Sub Retour_en_etude()
Dim C As Range, Num As Variant, Col As Variant
Num = InputBox("Entrez le numéro de projet") 'Saisie du numéro de projet
If Num = "" Then Exit Sub
Col = Application.Match("Projet " & Num, [2:2], 0)
If Not IsNumeric(Col) Then
MsgBox "Projet " & Num & " non trouvé"
Exit Sub
End If
For Each C In Range("H3", Cells(Rows.Count, "H").End(xlUp)) 'Sélectionne la plage H3 à la dernière cellule remplie de la colonne H
If C.Offset(, -4) = 1 Then '"-4" est le décalage vers la gauche entre les colonnes H et D
C.Value = Cells(C.Row, Col).Formula
End If
Next C
End Sub
Le problème c'est qu'il copie précisément le contenu de la formule donc le décalage ne prend pas.
Si je fais un retour en étude de la colonne K à la colonne H, les formules qui prenaient K garde K alors qu'elle devrait passer sur H comme les autres macros.
J'ai essayé de remplacer C.Value = Cells(C.Row, Col).Formula
par C.Copy
Cells(C.Row, Col).PasteSpecial xlPasteFormulas
Qui est utilisé dans les autres macros mais ça ne fonctionne pas.
Un idée ? :')
Dernière édition: