VBA Excl 2007 répétition de macro non permise
Résolu/Fermé
jacques_nl
Messages postés
3
Date d'inscription
dimanche 18 septembre 2011
Statut
Membre
Dernière intervention
25 septembre 2011
-
Modifié par jacques_nl le 25/09/2011 à 18:46
jacques_nl Messages postés 3 Date d'inscription dimanche 18 septembre 2011 Statut Membre Dernière intervention 25 septembre 2011 - 25 sept. 2011 à 19:23
jacques_nl Messages postés 3 Date d'inscription dimanche 18 septembre 2011 Statut Membre Dernière intervention 25 septembre 2011 - 25 sept. 2011 à 19:23
A voir également:
- VBA Excl 2007 répétition de macro non permise
- Erreur 1004 vba ✓ - Forum VB / VBA
- Macro logiciel - Télécharger - Organisation
- Vba appeler une macro - Astuces et Solutions
- Télécharger excel 2007 gratuit - Télécharger - Tableur
- Save as pdf office 2007 - Télécharger - Bureautique
1 réponse
michel_m
Messages postés
16593
Date d'inscription
lundi 12 septembre 2005
Statut
Contributeur
Dernière intervention
7 mars 2023
3 291
Modifié par michel_m le 25/09/2011 à 19:03
Modifié par michel_m le 25/09/2011 à 19:03
Bonjour,
L'exemple de l'aide "Find" de Microsoft ne m'a jamais convaincu (mais...)
sur une colonne ("A1:A500") essaies
Michel
L'exemple de l'aide "Find" de Microsoft ne m'a jamais convaincu (mais...)
sur une colonne ("A1:A500") essaies
Sub xxx()
Dim Vieu As Long, Nouv As Long, Plage As String
Dim Nbre As Integer, Lig As Long, Cptr As Integer
Vieu = 2
Nouv = 6
Plage = "A1:A500"
With Sheets(1)
Nbre = Application.CountIf(.Range(Plage), Vieu)
If Nbre = 0 Then GoTo vide
Lig = 65536 'XL<2007
For Cptr = 1 To Nbre
Lig = .Columns(1).Find(Vieu, .Cells(Lig, 1), xlValues).Row
.Cells(Lig, 1) = Nouv
Next
End With
Exit Sub
vide:
MsgBox " Valeur " & Vieu & " inconnue dans la plage " & Plage, vbExclamation
End Sub
Michel
25 sept. 2011 à 19:23
Réponse rapide et très efficace. Merci!
Jacques