Le Forum,
Rebonjour,
J'ai composé une ligne pour vidanger des valeurs de plusieurs zones de cellules.
J'ai été amené à envisager une extension des zones (en nombre de lignes à vider).
Vous trouverez ci-dessous mon cheminement de conception de la codification.
Je souhaite bénéficier de vos connaissances pour obtenir, si possible, la conception d'une phase n° 3 encore plus réduite que ce que j'ai appliqué et qui fonctionne déjà bien.
Phase 1 :
Phase 2, pour étendre la zone à traiter :
Merci à l’avance pour votre partage de connaissance,
Webperegrino
Rebonjour,
J'ai composé une ligne pour vidanger des valeurs de plusieurs zones de cellules.
J'ai été amené à envisager une extension des zones (en nombre de lignes à vider).
Vous trouverez ci-dessous mon cheminement de conception de la codification.
Je souhaite bénéficier de vos connaissances pour obtenir, si possible, la conception d'une phase n° 3 encore plus réduite que ce que j'ai appliqué et qui fonctionne déjà bien.
Phase 1 :
VB:
…
Range("C7:E44,H7:J44,M7:O44,R7:T44,W7:Y44,AB7:AD44,AG7:AI44,AL7:AN44,AQ7:AS44,AV7:AX44"). ClearContents
…
Phase 2, pour étendre la zone à traiter :
VB:
…
dl = Sheets("SAISIE").Cells(Application.Rows.Count, 2).End(xlUp).Row
Range("C7:E" & dl).ClearContents
Range("H7:J" & dl).ClearContents
Range("M7:O" & dl).ClearContents
Range("R7:T" & dl).ClearContents
Range("W7:Y" & dl).ClearContents
Range("AB7:AD" & dl).ClearContents
Range("AG7:AI" & dl).ClearContents
Range("AL7:AN" & dl).ClearContents
Range("AQ7:AS" & dl).ClearContents
Range("AV7:AX" & dl).ClearContents
…
Merci à l’avance pour votre partage de connaissance,
Webperegrino
Dernière édition: