Macro copier-coller
Fermé
Ravome
-
8 mars 2012 à 15:03
pijaku Messages postés 12263 Date d'inscription jeudi 15 mai 2008 Statut Modérateur Dernière intervention 15 mars 2023 - 14 mars 2012 à 10:22
pijaku Messages postés 12263 Date d'inscription jeudi 15 mai 2008 Statut Modérateur Dernière intervention 15 mars 2023 - 14 mars 2012 à 10:22
A voir également:
- Macro copier-coller
- Dessin sms copier coller zizi ✓ - Forum Internet / Réseaux sociaux
- Macro logiciel - Télécharger - Organisation
- Coeur copier coller ✓ - Forum Internet / Réseaux sociaux
- Copier video youtube - Guide
- Super copier - Télécharger - Gestion de fichiers
4 réponses
pijaku
Messages postés
12263
Date d'inscription
jeudi 15 mai 2008
Statut
Modérateur
Dernière intervention
15 mars 2023
2 712
8 mars 2012 à 16:12
8 mars 2012 à 16:12
Bonjour,
Combien de lignes sont à traiter?
Combien de lignes sont à traiter?
ccm81
Messages postés
10559
Date d'inscription
lundi 18 octobre 2010
Statut
Membre
Dernière intervention
24 mars 2023
2 337
8 mars 2012 à 16:25
8 mars 2012 à 16:25
re bonjour
du moment que la colonne A est triée, les doublons sont dans des lignes consécutives, ça simplifie
bonne suite
du moment que la colonne A est triée, les doublons sont dans des lignes consécutives, ça simplifie
Private Sub btOK_Click()
Dim derli As Long, li As Long
derli = Range("A" & Rows.Count).End(xlUp).Row
For li = 2 To derli - 1
If Range("A" & li) = Range("A" & li + 1) Then
If Range("L" & li) <> Range("L" & li + 1) Then
If Range("L" & li) <> "" And Range("L" & li + 1) <> "" Then
MsgBox ("lignes " & li & "-" & li + 1 & " on fait quoi?")
Else
If Range("L" & li) = "" Then
Range("L" & li) = Range("L" & li + 1)
Else
Range("L" & li + 1) = Range("L" & li)
End If
End If
End If
End If
Next li
End Sub
bonne suite
Bonjour,
Merci pour votre aide et désolé pour ma réponse tardive mais j'étais en déplacement.
Il y a 6170 lignes à traiter. Je n'ai jamais créer de macro et donc je ne sais pas du tout comment faire. Pouvez-vous me guider pas à pas sur la démarche à suivre svp?
Encore merci pour votre aide précieuse.
Merci pour votre aide et désolé pour ma réponse tardive mais j'étais en déplacement.
Il y a 6170 lignes à traiter. Je n'ai jamais créer de macro et donc je ne sais pas du tout comment faire. Pouvez-vous me guider pas à pas sur la démarche à suivre svp?
Encore merci pour votre aide précieuse.
pijaku
Messages postés
12263
Date d'inscription
jeudi 15 mai 2008
Statut
Modérateur
Dernière intervention
15 mars 2023
2 712
14 mars 2012 à 10:22
14 mars 2012 à 10:22
Bonjour,
La démarche à suivre?
1- ouvrir le classeur concerné,
2- enregistrer sous "un autre nom"
3- Tapez ALT+F11
4- dans la fenêtre Visual Basic Editor, Insertion/Module
5- copiez-collez le code de ccm81 (salutations!)
6- remplacer la ligne de code :
7- fermer la fenêtre Visual Basic Editor
8- ALT+F8, sélectionner "test" puis cliquer sur Exécuter
9- attendre le résultat qui ne devrait plus tarder...
La démarche à suivre?
1- ouvrir le classeur concerné,
2- enregistrer sous "un autre nom"
3- Tapez ALT+F11
4- dans la fenêtre Visual Basic Editor, Insertion/Module
5- copiez-collez le code de ccm81 (salutations!)
6- remplacer la ligne de code :
Private Sub btOK_Click()par :
Sub test()
7- fermer la fenêtre Visual Basic Editor
8- ALT+F8, sélectionner "test" puis cliquer sur Exécuter
9- attendre le résultat qui ne devrait plus tarder...