Copier code dans un module vba

[NICOALBERT]

Bonsoir le Forum,

J'aimerais savoir si il y a possibilité de copié via une macro un code se trouvant en feuille 1 directement dans le module1 du VBA sans l'ouvrir.

Cordialement.

 

[MichD]

Re : Copier code dans un module vba

Bonjour,

Sans ouvrir le fichier, il est impossible d'accéder et de modifier le code VBA peu importe les manipulations
que l'on désire effectuer.

 

[NICOALBERT]

Re : Copier code dans un module vba

Bonjour MichD,

en faite j'ouvre le fichier mais pas VBA.
je voudrait que ce qu'il y a dans la feuil1 ce copie dans le module 1 après avoir lancer une macro

 

[NICOALBERT]

Re : Copier code dans un module vba

Re-Bonsoir.

Et si j'ouvre VBA via Alt & F11
Est ce que sa peu ce faire.

Cordialement.

 

[MichD]

Re : Copier code dans un module vba

voici le code :

Sub test()
Dim Rg As Range, Are As Range, R As Range, A As Long
With Feuil1
Set Rg = .Range("D1😀" & .Range("D65536"). _
End(xlUp).Row).SpecialCells(xlCellTypeBlanks)
End With

For A = 1 To Rg.Cells.Count Step 21
Set R = Range("D" & A).Resize(21)
dd = R.Cells.Count
For Each Are In Rg.Areas
If Are.Cells.Count >= 20 Then
If Union(Are, R).Address = R.Address Then
R(1, 1) = 0
End If
End If
Next
Next
End Sub