Discussion :

[stochastique]

Bonjour,

Je suis nouveau sur ce forum, et aussi débutant en vba.
J'ai créer cette fonction:

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
 
Function espace()
Dim i As Integer
i = 2
Do
If Cells(1, i).Value <> "" Then
i = i + 1
Else: Exit Do
End If
espace = i
Loop
End Function

Sur la page 1 elle fonctionne, mais dès que je vais sur une autre page elle me retourne 0, bien que la première ligne ne soit pas vide. J'aimerai comprendre pourquoi.

Merci de vos réponses

Stochastique

[Touffe54]

Salut stochastique,

Voici ta fonction corrigée :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
Function Espace(Cellule as Range) as Integer
    Dim i As Integer
    i = 0
    Do While Cellule.Offset(0,i) <> ""
        i = i + 1
    Loop
    Espace = i
End Function

J'ai donc fusionné tes 2 lignes "Do" et "If" en une seule, cela évite un "Else Exit Do".

J'ai sorti la ligne "Espace = i" de la boucle. C'est inutile de mettre cette ligne dans la boucle et çà ralenti le programme (enfin dans ton cas, de pas beaucoup)

Ensuite, le point important, j'ai créé une variable "Cellule" de type Range (c'est à dire une variable de type cellule excel). Il faudra donc que tu appelles ta fonction ainsi :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

Espace Feuil1.Range("B1")

ou bien

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

Espace Feuil2.Range("B1")

etc...
Il faut que tu précises la feuille sur laquelle tu veux appliquer ta fonction.

Offset(Ligne, Colonne) est une propriété de la variable de type Range. Cela permet d'effectuer des décalages par rapport à la cellule d'origine.

Dernier Point, j'ai précisé que la fonction renvoie une donnée de type Integer (après les parenthèses). Tu n'avais rien précisé et ta fonction renvoyait par défaut une donnée de type Variant. Il faut savoir qu'une donnée de type Variant est beaucoup plus volumineuse qu'une donnée de type Integer, donc plus longue à traiter.

Voilà, j'espère avoir réparé ton bug et avoir été clair dans mes explications. En tout cas, n'hésite pas si t'as des questions.

[stochastique]

Merci énormément Touffe54, très claire tes explications!!

Je n'hésite pas à revenir si j'ai un autre problème...

Stochastique

[stochastique]

Ah j'ai une autre question,

Lorsque les checkbox soient cochés, j'aimerai qu'il m'affiche le titre du checkbox,, j'ai donc tapé ce code, mais rien ne se passe, et aucune erreur!!

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
 
Private Sub CommandButton1_Click()
For i = 1 To 6
If checkboxi = True Then
Call Espace(Range("A1"))
Cells(1, Espace(Range("A1"))).Value = checkboxi.Caption
End If
Next
Unload UserForm1
End Sub

Quelqu'un aurait-il une idée?

Merci beaucoup

Stochastique

[dodo69]

salut,

tu aimerai qu'il t'affiche le titre de la checkbox ou ?
Dans ta cellule A1 ? ou a la première case vide ?

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
Private Sub CommandButton1_Click()
For i = 1 To 6
If checkboxi = True Then
Call Espace(Range("A1"))
Cells(1, Espace).Value = checkboxi.Caption
End If
Next
Unload UserForm1
End Sub

Je suis pas sur d'avoir compris mais essaye de modifier ça (le code en rouge).
même si je ne suis pas vraiment convaincu que ça marche :p

[stochastique]

En effet j'ai essaye et ça ne marche pas.
Je souhaite ajouter le titre de la checkbox coché.
La fonction espace, me permet d'ajouter ce titre à la cellule première colonne vide.

J'espère avoir été assez clair

Merci