Recherche aléatoire dans une plage, inclure condition pour ignorer les cellules vides

  • Initiateur de la discussion Initiateur de la discussion boulou
  • Date de début Date de début

Boostez vos compétences Excel avec notre communauté !

Rejoignez Excel Downloads, le rendez-vous des passionnés où l'entraide fait la force. Apprenez, échangez, progressez – et tout ça gratuitement ! 👉 Inscrivez-vous maintenant !

Re : Recherche aléatoire dans une plage, inclure condition pour ignorer les cellules

Bonjour,
Ce serait mieux si les choses étaient à leur place dans la pièce jointe:
le code VBA dans le module de la feuille et dans cette feuille les données qu'il traite !
Parce que là on ne voit pas la structure ni où il y a des cellules vides à ignorer !
Cordialement
 
Re : Recherche aléatoire dans une plage, inclure condition pour ignorer les cellules

Bonjour boulou

A tester

VB:
Private Sub CommandButton1_Click()
Dim x As Byte, t() As Variant, y As Byte
Randomize
If Range("G10").Value = "" Then Exit Sub
t = Range("ba52:ba72")
y = Choose(WorksheetFunction.Match(Range("g10"), t, 0), 53, 57, 61, 65, 69, 73, 77, 81, 85, 89, 93, 97, 101, 105, 109)
x = Int((125 - 103 + 1) * Rnd + 103)
Range("g15").Value = Cells(x, y)
Range("g16").Value = Cells(x, y + 1)
While Range("g15").Value = "" Or Range("g16").Value = ""
x = Int((125 - 103 + 1) * Rnd + 103)
Range("g15").Value = Cells(x, y)
Range("g16").Value = Cells(x, y + 1)
Wend
End Sub

Edit : Salut Danreb
 
Re : Recherche aléatoire dans une plage, inclure condition pour ignorer les cellules

Merci pour votre attention.
Je veux ignorer les cellules vides des lignes BA52 à BA72 dans les colonnes 53,57,61,65,69,73,77,81,85,89,93,97,101,105,109
 
- Navigue sans publicité
- Accède à Cléa, notre assistante IA experte Excel... et pas que...
- Profite de fonctionnalités exclusives
Ton soutien permet à Excel Downloads de rester 100% gratuit et de continuer à rassembler les passionnés d'Excel.
Je deviens Supporter XLD

Discussions similaires

Réponses
4
Affichages
101
  • Question Question
Microsoft 365 TCD
Réponses
6
Affichages
281
Réponses
5
Affichages
121
Réponses
6
Affichages
464
Réponses
5
Affichages
489
Deleted member 453598
D
Retour