NB.Si
Fermé
mylord666
Messages postés
151
Date d'inscription
jeudi 26 juin 2014
Statut
Membre
Dernière intervention
9 septembre 2015
-
12 août 2014 à 10:16
mylord666 Messages postés 151 Date d'inscription jeudi 26 juin 2014 Statut Membre Dernière intervention 9 septembre 2015 - 12 août 2014 à 23:03
mylord666 Messages postés 151 Date d'inscription jeudi 26 juin 2014 Statut Membre Dernière intervention 9 septembre 2015 - 12 août 2014 à 23:03
A voir également:
- Vba nb.si
- Nb.si en anglais - Guide
- Find vba - Astuces et Solutions
- Vba attendre 1 seconde ✓ - Forum VB / VBA
- Vba récupérer valeur cellule ✓ - Forum VB / VBA
- Mkdir vba ✓ - Forum VB / VBA
2 réponses
skk201
Messages postés
938
Date d'inscription
jeudi 11 septembre 2008
Statut
Membre
Dernière intervention
16 octobre 2016
54
Modifié par skk201 le 12/08/2014 à 17:01
Modifié par skk201 le 12/08/2014 à 17:01
Bonjour
Je dois juste vérifier quelques détails mais sa devrait marcher.
Ajouter ces deux procédures au module
Sélectionné les cellules concernées
[ALT] + [F8]
Lancer la macro "StartDouble"
EDIT : Voila j'ai fait une petit correction
*Vous pouvez mettre en forme votre code grâce à la flèche en haut a droite de l'éditeur de texte.
Pensez mettre vos messages en [Résolu] et cliquer sur le + des conseil qui vous ont été utiles."
Sub StartDouble() Dim Ran As Range Set Ran = Selection MsgBox "Cette information apparait " & DOUBLES(InputBox("Que rechercher ?"), Ran) & " fois." End Sub Function DOUBLES(obj_Recherche As String, Plage As Range) As Integer Dim Resultat As Integer Dim Cell As Range For Each Cell In Plage If UCase(Cell.Value) = UCase(obj_Recherche) Then Resultat = Resultat + 1 End If Next DOUBLES = Resultat End Function
Je dois juste vérifier quelques détails mais sa devrait marcher.
Ajouter ces deux procédures au module
Sélectionné les cellules concernées
[ALT] + [F8]
Lancer la macro "StartDouble"
EDIT : Voila j'ai fait une petit correction
*Vous pouvez mettre en forme votre code grâce à la flèche en haut a droite de l'éditeur de texte.
Pensez mettre vos messages en [Résolu] et cliquer sur le + des conseil qui vous ont été utiles."
mylord666
Messages postés
151
Date d'inscription
jeudi 26 juin 2014
Statut
Membre
Dernière intervention
9 septembre 2015
12 août 2014 à 23:03
12 août 2014 à 23:03
merci beaucoup je vais le tester merci merci