Une boucle qui transferts les donner une seule fois
BelhoucineDine
Messages postés
41
Date d'inscription
Statut
Membre
Dernière intervention
-
BelhoucineDine Messages postés 41 Date d'inscription Statut Membre Dernière intervention -
BelhoucineDine Messages postés 41 Date d'inscription Statut Membre Dernière intervention -
Bonjour, j'ai créée un programme dans Excel 2007 pour transferts les donner de la feuille 1 à la feuille 2 et 3 suivent une condition.
J'ai fais un bouton avec VBA qui transferts les donner, mai chaque fois quand je click sur CommandButton1 ce répète plusieurs fois
Je veux une boucle qui transferts les donner une seule fois
Voilà mon code:
Private Sub CommandButton1_Click()
Dim cl As Range, i As Integer
For i = 2 To 3
For Each cl In Range("H4:H" & [H10000].End(xlUp).Row)
If cl.Value = Sheets(i).Name Then
cl.Offset(0, -6).Resize(1, 7).Copy Sheets(i).Range("B" & Sheets(i).[B10000].End(xlUp).Row + 1)
End If
Next cl
Next i
MsgBox "Transfert apte et inapte", vbOKOnly, "Transfert"
'MsgBox "Vous ne pouvez pas transfert à nouveau", vbOKOnly, "Transfert"
End Sub
J'ai fais un bouton avec VBA qui transferts les donner, mai chaque fois quand je click sur CommandButton1 ce répète plusieurs fois
Je veux une boucle qui transferts les donner une seule fois
Voilà mon code:
Private Sub CommandButton1_Click()
Dim cl As Range, i As Integer
For i = 2 To 3
For Each cl In Range("H4:H" & [H10000].End(xlUp).Row)
If cl.Value = Sheets(i).Name Then
cl.Offset(0, -6).Resize(1, 7).Copy Sheets(i).Range("B" & Sheets(i).[B10000].End(xlUp).Row + 1)
End If
Next cl
Next i
MsgBox "Transfert apte et inapte", vbOKOnly, "Transfert"
'MsgBox "Vous ne pouvez pas transfert à nouveau", vbOKOnly, "Transfert"
End Sub
A voir également:
- Une boucle qui transferts les donner une seule fois
- Comment imprimer un tableau excel sur une seule page - Guide
- Mettre une seule page en paysage word - Guide
- Regrouper plusieurs feuilles excel en une seule - Guide
- Application qui se ferme toute seule - Guide
- Tele qui s'allume toute seule signification - Forum TV & Vidéo
2 réponses
Bonjour,
Déja je te conseille d'inverser tes boucles, parcequ'il parcours 2 fois ta feuille 1 alors qu'une fois est suffisante
Ensuite si j'ai bien compris, tu ne veux pas avoir de doublons. Le plus simple est d'appliquer à la fin, en dehors des boucles, cette fonction pour enlever les doublons :
D'autres conseils :
-utilise plutôt end(xldown) plutôt que end(xlup)
-utilise un assignement de cellules direct plutôt que la fonction Copy
--
Déja je te conseille d'inverser tes boucles, parcequ'il parcours 2 fois ta feuille 1 alors qu'une fois est suffisante
Dim cl As Range, i As Integer
For Each cl In Range("H4:H" & [H10000].End(xlUp).Row)
For i = 2 To 3
If cl.Value = Sheets(i).Name Then
cl.Offset(0, -6).Resize(1, 7).Copy Sheets(i).Range("B" & Sheets(i).[B10000].End(xlUp).Row + 1)
End If
Next i
Next cl
MsgBox "Transfert apte et inapte", vbOKOnly, "Transfert"
'MsgBox "Vous ne pouvez pas transfert à nouveau", vbOKOnly, "Transfert"
Ensuite si j'ai bien compris, tu ne veux pas avoir de doublons. Le plus simple est d'appliquer à la fin, en dehors des boucles, cette fonction pour enlever les doublons :
ActiveSheet.Range("$B$2:$H$17").RemoveDuplicates Columns:=Array(1, 2, 3, 4, 5, 6, 7 _
), Header:=xlNo
D'autres conseils :
-utilise plutôt end(xldown) plutôt que end(xlup)
-utilise un assignement de cellules direct plutôt que la fonction Copy
--
Merci Phadeb pour votre réponse
Tout ce que vous avez demandé que j'ai essayé mais n'a pas réussi
Ma commande est:
Lorsque vous appuyez sur le bouton pour la première fois le relais, et lorsque vous appuyez sur le bouton pour la deuxième fois ce répète deux fois et plus le transfert de donner
J'utilise la fonction Copy plus pratique parce que je la métrise
Pour les doublons n’est pas un problème parce que les tableaux les demandent
Tout ce que vous avez demandé que j'ai essayé mais n'a pas réussi
Ma commande est:
Lorsque vous appuyez sur le bouton pour la première fois le relais, et lorsque vous appuyez sur le bouton pour la deuxième fois ce répète deux fois et plus le transfert de donner
J'utilise la fonction Copy plus pratique parce que je la métrise
Pour les doublons n’est pas un problème parce que les tableaux les demandent
Bonjour,
Pour transmettre un fichier,
Veillez a ce qu'il n'y ait PAS DE DONNEES CONFIDENTIELLES
il faut passer par un site de pièce jointe tel que cjoint.com
Allez sur ce site : https://www.cjoint.com/
Clic sur parcourir,
Cherche ton fichier,
clic sur ouvrir,
Clic sur "Créer le lien cjoint",
Copier le lien,
Revenir ici le coller dans une réponse...
Pour transmettre un fichier,
Veillez a ce qu'il n'y ait PAS DE DONNEES CONFIDENTIELLES
il faut passer par un site de pièce jointe tel que cjoint.com
Allez sur ce site : https://www.cjoint.com/
Clic sur parcourir,
Cherche ton fichier,
clic sur ouvrir,
Clic sur "Créer le lien cjoint",
Copier le lien,
Revenir ici le coller dans une réponse...