Copier coller sélection spéciale

[lolodepau]

Bonjour a tous,
je aimerais bien savoir comment faire dans la ligne rouge pour que le A en vert corresponde avec la suite en bleu ...

Merci d'avance


Sub Spprfinaltab1()

Sheets("Données 1").Select
Range("A:K406" & Sheets("COMPLETCOVADIS").Range("M20").Value).Select
Selection.SpecialCells(xlCellTypeBlanks).Select
Selection.Delete Shift:=xlUp
Sheets("Cable 1").Select
Range("N23").Select

End Sub

 

[lolodepau]

Re : Copier coller sélection spéciale

Help me 🙂

 

[Robert]

Re : Copier coller sélection spéciale

Bonjour LolodePau, bonjour le forum,

Peut-être comme ça :

Sub Spprfinaltab1()
Sheets("Données 1").Select
Range("A" & Sheets("COMPLETCOVADIS").Range("M20").Value & ":K406" ).Select
Selection.SpecialCells(xlCellTypeBlanks).Select
Selection.Delete Shift:=xlUp
Sheets("Cable 1").Select
Range("N23").Select
End Sub

 

[Pierrot93]

Re : Copier coller sélection spéciale

Bonjour,

peut être comme ceci :

Range("A" & Sheets("COMPLETCOVADIS").Range("M20").Value & ":K406" ).Select

bonne journée
@+

Edition : nbonjour Robert🙂

 

[Robert]

Re : Copier coller sélection spéciale

Bonjour LolodePau, bonjour le forum,

Help me 🙂

Hé ho ! On est pas aux pièces !

 

[lolodepau]

Re : Copier coller sélection spéciale

Merci a vous deux, cela fonctionne parfaitement.