REcherche et incrémentation
Fermé
Marina1234567
Messages postés
1
Date d'inscription
mardi 26 janvier 2016
Statut
Membre
Dernière intervention
26 janvier 2016
-
Modifié par Marina1234567 le 26/01/2016 à 14:25
michel_m Messages postés 16603 Date d'inscription lundi 12 septembre 2005 Statut Contributeur Dernière intervention 16 décembre 2023 - 27 janv. 2016 à 08:42
michel_m Messages postés 16603 Date d'inscription lundi 12 septembre 2005 Statut Contributeur Dernière intervention 16 décembre 2023 - 27 janv. 2016 à 08:42
A voir également:
- REcherche et incrémentation
- Recherche automatique des chaînes ne fonctionne pas - Guide
- Rechercher ou entrer l'adresse mm - recherche google - Guide
- Recherche et remplacer word - Guide
- Recherche adresse - Guide
- Recherche photo - Guide
1 réponse
michel_m
Messages postés
16603
Date d'inscription
lundi 12 septembre 2005
Statut
Contributeur
Dernière intervention
16 décembre 2023
3 312
Modifié par michel_m le 27/01/2016 à 08:43
Modifié par michel_m le 27/01/2016 à 08:43
Bonjour
déjà pour tirer au sort
mais ta capture d'écran ne nous est pas utile
Dans l’attente
Michel
déjà pour tirer au sort
Sub noter()
Dim cellule As Range
Application.ScreenUpdating = False
Randomize
For Each cellule In Range("B2:B10")
nbre = Int(Rnd * 9) + 1
cellule = nbre
Next cellule
End Sub
mais ta capture d'écran ne nous est pas utile
Mettre le classeur sans données confidentielles en pièce jointe sur https://www.cjoint.com/
et coller le raccourci proposé (clic droit) dans le message de réponse
Dans l’attente
Michel