EXCEL - MACRO
Résolu/Fermé
olive60
Messages postés
253
Date d'inscription
vendredi 7 septembre 2007
Statut
Membre
Dernière intervention
21 décembre 2010
-
18 juil. 2008 à 16:34
olive60 Messages postés 253 Date d'inscription vendredi 7 septembre 2007 Statut Membre Dernière intervention 21 décembre 2010 - 21 juil. 2008 à 15:11
olive60 Messages postés 253 Date d'inscription vendredi 7 septembre 2007 Statut Membre Dernière intervention 21 décembre 2010 - 21 juil. 2008 à 15:11
A voir également:
- EXCEL - MACRO
- Liste déroulante excel - Guide
- Formule excel - Guide
- Déplacer une colonne excel - Guide
- Convertir chiffre en lettre excel sans macro ✓ - Forum Excel
- Aller à la ligne excel - Guide
27 réponses
lermite222
Messages postés
8702
Date d'inscription
dimanche 8 avril 2007
Statut
Contributeur
Dernière intervention
22 janvier 2020
1 193
21 juil. 2008 à 13:54
21 juil. 2008 à 13:54
Nerveux... J'ai pas eu façile de debbugé ton classeur, beaucoup de problème, enfin soit, ca devrait aller avec cette macro.
Met un point d'arrèt sur la ligne FL1.Select
Lancer avec F5 et quand arrète continuer avec F8, dés que la 1ère ligne à été copiée, arrèter la macro et controller si c'est bien ce que tu veux.
ET quand tu la lance pour de bon, va boire une tasse de café... :D
Fait quanf même un backup avant de lancer.
A+
Met un point d'arrèt sur la ligne FL1.Select
Lancer avec F5 et quand arrète continuer avec F8, dés que la 1ère ligne à été copiée, arrèter la macro et controller si c'est bien ce que tu veux.
ET quand tu la lance pour de bon, va boire une tasse de café... :D
Fait quanf même un backup avant de lancer.
Sub en_conc_la_liste_vente_ac_liste_ref()
Dim i As Long, e As Long
Dim FL1 As Worksheet
Dim FL2 As Worksheet
Dim a$, b$
Application.EnableEvents = False
Application.ScreenUpdating = False
Set FL1 = Sheets("vente monde")
Set FL2 = Sheets("requet_temp")
For i = 307 To 2304
For e = 4 To 2200
' FL2.Range("F65536").End(xlUp).Row
'Pas possible d'employé cette formule, elle va jusque 28000
'Si plus de lignes dans ta base augmenter ce nombre.
If FL2.Cells(i, 5) = FL1.Cells(e, 6) Then
FL1.Select
Range(Cells(e, 5), Cells(e, 207)).Copy
FL2.Select
Cells(i, 28).Select
ActiveSheet.Paste
Exit For
End If
DoEvents
Next e
DoEvents
Next i
Application.ScreenUpdating = True
Application.EnableEvents = True
End Sub
A+
olive60
Messages postés
253
Date d'inscription
vendredi 7 septembre 2007
Statut
Membre
Dernière intervention
21 décembre 2010
27
21 juil. 2008 à 14:01
21 juil. 2008 à 14:01
Merci Lhermitte,
petite question avant de la lancer, c'est quoi un point d'arret?
petite question avant de la lancer, c'est quoi un point d'arret?
lermite222
Messages postés
8702
Date d'inscription
dimanche 8 avril 2007
Statut
Contributeur
Dernière intervention
22 janvier 2020
1 193
21 juil. 2008 à 14:09
21 juil. 2008 à 14:09
Tu met le curseur sur la ligne que je renseigne et tu tape F9, cette ligne va ètre en surbrillance brune et la macro va s'arrèter quand elle arrive sur cette ligne.
Autre façon.. A hauteur de cette ligne tu clic sur le cadre à gauche de la ligne.
Autre façon.. A hauteur de cette ligne tu clic sur le cadre à gauche de la ligne.
olive60
Messages postés
253
Date d'inscription
vendredi 7 septembre 2007
Statut
Membre
Dernière intervention
21 décembre 2010
27
21 juil. 2008 à 14:10
21 juil. 2008 à 14:10
Ecoute lhermitte, je ne sais pas comment te remercier...
La ça fonctionne très bien apparement
C'est vraiment super sympa de ta part et vive CCM!
MErci encore pour tout!!!
Olive
La ça fonctionne très bien apparement
C'est vraiment super sympa de ta part et vive CCM!
MErci encore pour tout!!!
Olive
Vous n’avez pas trouvé la réponse que vous recherchez ?
Posez votre question
lermite222
Messages postés
8702
Date d'inscription
dimanche 8 avril 2007
Statut
Contributeur
Dernière intervention
22 janvier 2020
1 193
21 juil. 2008 à 14:20
21 juil. 2008 à 14:20
Pas de quoi, c'était avec plaisir et toujours content de pouvoir rendre service.
A un prochaine fois.
A un prochaine fois.
olive60
Messages postés
253
Date d'inscription
vendredi 7 septembre 2007
Statut
Membre
Dernière intervention
21 décembre 2010
27
21 juil. 2008 à 14:21
21 juil. 2008 à 14:21
dernière question :
sais-tu comment enlever l'accès au fichier ou encore enlever le lien ci desuus?
Olive
sais-tu comment enlever l'accès au fichier ou encore enlever le lien ci desuus?
Olive
lermite222
Messages postés
8702
Date d'inscription
dimanche 8 avril 2007
Statut
Contributeur
Dernière intervention
22 janvier 2020
1 193
21 juil. 2008 à 14:28
21 juil. 2008 à 14:28
enlever l'accès ?? Protégé le fichier ?
Enlever le lien ?
EDIT le lien pour ton classeur,..
Cliquer sur le triangle jaune à côté de ta réponse et exposer ta demande aux modérateur.
Mais quand c'est un fichier que tu ne veux pas communiqué à tout le monde met le en message privé.
Je crois que c'est ca que tu veux ?
Enlever le lien ?
EDIT le lien pour ton classeur,..
Cliquer sur le triangle jaune à côté de ta réponse et exposer ta demande aux modérateur.
Mais quand c'est un fichier que tu ne veux pas communiqué à tout le monde met le en message privé.
Je crois que c'est ca que tu veux ?
olive60
Messages postés
253
Date d'inscription
vendredi 7 septembre 2007
Statut
Membre
Dernière intervention
21 décembre 2010
27
21 juil. 2008 à 15:11
21 juil. 2008 à 15:11
Oui merci lhermitte
C'est très sympa...
Bonne journée
Olive60
C'est très sympa...
Bonne journée
Olive60