boucle - ok- mais effacer avant report des donnees

Boostez vos compétences Excel avec notre communauté !

Rejoignez Excel Downloads, le rendez-vous des passionnés où l'entraide fait la force. Apprenez, échangez, progressez – et tout ça gratuitement ! 👉 Inscrivez-vous maintenant !

happymarmotte

XLDnaute Occasionnel
bonjour

je reviens avec une petite question technique que je n`arrive pas a resoudre
le code suivant me permet bien d`envoyer les donnees ds la feuille "DATA" vers la feuille client (N feuilles avec 1 feuille par client) que je souhaite mais avant de coller les donnees, je voudrais effacer ds la feuille client que j`ai selectionne les donnees en A61:Z150.
j`ai ma feuille client et je dis a la macro d`allouer les donnees si un X" est en colonne B de la feuille client. En col. j`ai le nom de la feuille du client.

oui, la macro alloue les donnees mais en fait avant de coller les donnees en A61 (en A60 j`ai le tritre de la colonne), il faut que j`efface les donnees existantes car sinon je cumule les donnees et ma facture client n`est pas correcte.

Je mets ou le CLEARCONTENTS ou Value="" ds mon code car j`ai essaye plusieurs choses mais rien ne marche??

merci a vous

happymarmotte

Sub Create_Invoice()
Dim nbl1 As Long, nbl2 As Long, nblx As Long
Dim i As Long, J As Long
nbl1 = Sheets("DATA").Range("A65000").End(xlUp).Row
nbl2 = Sheets("CLIENTS").Range("A65000").End(xlUp).Row
Sheets("DATA").Select
With Sheets("CLIENTS")
For i = 2 To nbl1
For J = 2 To nbl2
If Cells(i, 1).Value = .Cells(J, 5) And _
Cells(i, 2).Value = .Cells(J, 4) And _
"X" = .Cells(J, 2) Then

feuille = .Cells(J, 3).Value

nblx = Sheets(feuille).Range("A65535").End(xlUp).Row + 1

For k = 1 To 10
voila ce que j`ai mets mais la boucle me colle 90 lignes de A61 a A150 donc du coup avec cette methode d`effacement, j`efface toutes les lignes que je colle sauf la derniere.

'#### Sheets(feuille).Range("a61:Z150").Value = ""

Sheets(feuille).Cells(nblx, k) = Cells(i, k)
Next k
End If

On Error Resume Next

Next J
Next i
End With
End Sub
' JE CHERCHE A VIDER DS LA FEUILLE LA ZONE A61:Z150
'AVANT DE COLLER DE NOUVEAU LES DONNEES
je colle ou le code?

je vous remercie

happymarmotte
 
- Navigue sans publicité
- Accède à Cléa, notre assistante IA experte Excel... et pas que...
- Profite de fonctionnalités exclusives
Ton soutien permet à Excel Downloads de rester 100% gratuit et de continuer à rassembler les passionnés d'Excel.
Je deviens Supporter XLD

Discussions similaires

Réponses
4
Affichages
177
Réponses
8
Affichages
466
  • Question Question
XL 2021 VBA excel
Réponses
4
Affichages
169
Réponses
3
Affichages
115
Réponses
10
Affichages
281
  • Question Question
Microsoft 365 Export données
Réponses
4
Affichages
649
Réponses
3
Affichages
665
  • Question Question
Microsoft 365 worksheet_change
Réponses
29
Affichages
479
Retour