effacer des données

[lagodille]

bonjour,

j'ai ceci :
w = “toto”
ChDrive
QPath = Dossier_PC
Qfic = Dir(QPath & "*" & ".xls")

With Workbooks(Dossierfinal).Sheets("Global")
Set x = .Range("AR3:CF3").Find(w, , xlValues, xlWhole, , , False)
If Not x Is Nothing Then
Workbooks(Qfic).Sheets("data").myMultipleRange.Copy
.Cells(6, x.Column).PasteSpecial Paste:=xlValues
Workbooks(Qfic).Sheets("base").Range("F6").Copy x
End If
End With

donc dans le "dossierfinal", je recherche de "AR3:CF3" si "toto" existe en tete de colonne et si c'est le cas alors je copie mes multiplerange à partir de la ligne 6 puis je copie la valeur "toto" en tete de colonne.

maintenant voila ma question :
en gardant la meme architecture je voudrais toujours detecter si toto existe de AR3:CF3 et si c'est le cas alors je voudrais effacer la colonne mais seulement de la ligne 6 à la ligne 275 et enfin supprimer "toto".

bref pouvoir effacer les données et le nom correspondant

je pense que ca c'est bon :
Workbooks(Qfic).Sheets("base").Range("F6").Delete x
mais pour la plage dans la colonne je peine ......

merci

 

[lagodille]

Re : effacer des données

bonsoir,


With Workbooks(Dossierfinal).Sheets("Global")
Set x = .Range("AR3:CF3").Find(w, , xlValues, xlWhole, , , False)
If Not x Is Nothing Then
.Cells(("6:275"), x.Column).Clearcontents
Workbooks(Qfic).Sheets("base").Range("F6").Delete x
End If
End With

j'ai essayé cela mais ca ne tourne pas.......

merci pour votre aide