Nb de Cellule non vide variable

[vincent noah]

Bonsoir à tous

j'ai une difficulté à crée une Range qui ne prend en compte que les cellules non vides de la colonne A et B
** le nombre de cellules non vides est variable.
voici une parti de mon code :

Dim t As Range
Set t = ['toute les cellule non vide]
t.select

Merci de votre aides
A+

 

[JCGL]

Re : Nb de Cellule non vide variable

Bonjour à tous,

Peux-tu essayer :

Option Explicit

Sub Test()
Dim C As Range, F As Range
Set C = Selection.SpecialCells(xlCellTypeConstants, 23)
Set F = Selection.SpecialCells(xlCellTypeFormulas, 23)
Application.Union(C, F).Select
End Sub

A+ à tous

Edition : Modification du code pour prendre en compte le Constantes et les Formules.

 

[vincent noah]

Re : Nb de Cellule non vide variable

Re , Merci pour votre réponse ,

qui fonctionne bien mais quand je veux l'intégrer à mon code ça ne marche plus 😕

voici la suite de mon code :

Sub tir()
Dim t As Range, i As Integer
Set t = Selection.SpecialCells(xlCellTypeConstants, 23)
nc = t.Count
Randomize
Nb = t.Count
While i < 20
  Set n = t(Int(1 + Rnd * Nb))
 i = i + 1
Wend
End Sub

Nb représente les cellules non vides qui est peut être variable


Merci
A+

 

[JCGL]

Re : Nb de Cellule non vide variable

Bonjour à tous,

Que cherches tu à faire avec ce code ?

A+ à tous

 

[vincent noah]

Re : Nb de Cellule non vide variable

je cherche à faire 20 tirages au sort sur
ma feuille dont les colonne A, b et c sont remplit de différent nom
le but étant effectuer les tirages uniquement sur les cellules non vides

voila j'espère avoir était claire
A+

 

[JCGL]

Re : Nb de Cellule non vide variable

Bonjour à tous,

Ton code ne renvoie que des 0, des 1 et des vides.

A+ à tous

 

[vincent noah]

Re : Nb de Cellule non vide variable

Re,

Mon problème étant d'effectuer des tirages uniquement sur les cellules non vides :

Set n = t(Int(1 + Rnd * Nb))

Nb étant le contenu de cellule remplit
Bon je n'arrive pas à être assez explicite , je vais essayer de contourner le problème .

Merci tout de même .
A +