problème fonction vba

Bonjour,

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

Code:

---

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

Salut stochastique,

Voici ta fonction corrigée :

Code:

---

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:

---

Espace Feuil1.Range("B1")

---

ou bien

Code:

---

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.

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

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

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:

---

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

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:

---

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

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

oui je comprend,

et tu as regarder ce que ca donnais en mode pas a pas ?

Ba quand je compile en mode pas à pas, il ne se passe rien, il m'emmène jusqu'à la fin de la sub, mais ne marque rien dans les cellules.

Voici le détail de mon code userform

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22

Private Sub CommandButton1_Click() For i = 1 To 6 If checkboxi = True Then Call Espace(Range("D1:D2")) Cells(1, Espace(Range("D1:D2"))).Value = checkboxi.Caption End If Next Unload UserForm1 Load UserForm2 UserForm2.Show End Sub   Private Sub CommandButton2_Click() Unload UserForm1 Load UserForm2 UserForm2.Show End Sub   Private Sub CommandButton3_Click() Unload UserForm1 End Sub

---

Les 6 checbox ont bien étaient crées

je ne comprends pas ton

Code:

---

If checkboxi = True Then

---

essayes plutôt

Code:

---

if controls("checkbox" & i).value=true then

---

si c'est bien ce que je pense

Citation:

---

Code:

---

Cells(1, Espace(Range("D1:D2"))).Value = checkboxi.Caption

---

---

idem ici

Code:

---

Cells(1, Espace(Range("D1:D2"))).Value = controls("checkbox" & i).Caption

---

Oui ça marche un peu mieux:
Ca me met le titre de la checkbox, mais seulement de l'indice le plus grand.
Je m'explique: si je coche checkbox1 et checkbox2, ça m'affiche que le titre de la checkbox2....

Merci

parce que tel quel ça écrase le précédent par celui qui suit
il faudrait rajouté une variable string telle que dans la boucle
tu aies

Code:

---

affichag$=affichag$ &" et " & controls("checkbox" & i).caption

---

c'est affichag$ qu'il faut mettre comme valeur de cellule

Daranc je ne comprends pas très bien ce que tu as dit.
Peux-tu être un peu plus clair s'il te plaît?
Merci beaucoup

En fait, l'idée, c'est de stocker tous les titres valables. Tu veux mettre dans ta cellule l'ensemble des titres des cases cochées, c'est ça?

Si c'est ça, alors il faut concaténer, c'est à dire mettre bout à bout tous les éléments que tu veux afficher. C'est le sens de la ligne proposée par Daranc.

Ce qu'il n'a pas codé - même si il l'a dit - c'est que ça ne suffit pas. Il faut, en fin de boucle, alimenter la cellulle. Donc,

Code:

---

1 2 3 4 5

1) remplacer Cells(1, Espace(Range("D1:D2"))).Value = controls("checkbox" & i).Caption par affichag$=affichag$ &" et " & controls("checkbox" & i).caption

---

Code:

---

1 2 3

2) après la fin de la boucle, rajouter la ligne Cells(1, Espace(Range("D1:D2"))).Value = affichag$

---

dans tes boucles lorsque tu testes si un check box et à True tu mets

Code:

---

affichag$ = affichag$ & " et " & controls("checkbox" & i).caption

---

lorsque ta boucle va repasser sur le checkbox suivant coché
affichag$ qui à pris la valeur du checkbox1.caption va ajouter à la suite et checkboxX.caption
un test devra etre mis sur la premeier occurence pour ne pas avoir
et checkbox1 et checkbox2

Code:

---

1 2 3 4 5 6 7

if controls("checkbox" & i).value=true then affichag$ = affichag$ & " et " & controls("checkbox" & i).caption endif .... ... Cells(1, Espace(Range("D1:D2"))).Value = affichag$ end sub

---

Bonjour el slapper,

Je ne veux pas mettre dans ma cellule tous les titres des checkbox qui sont cochés.
Par exemple,
le checkbox1 est coché, ainsi que le checkbox2. On suppose aussi que range("A1") et range("B1") et rang("C1") ne sont pas vide.
Je souhaite donc que le titre du checkbox1 s'ajoute dans le range("D1"), et que le titre du checkbox2 s'ajoute dans le range("E1").

Si je reprends mon code initiale:

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12 13

Private Sub CommandButton1_Click() Dim i As Integer For i = 1 To 6 If Controls("checkbox" & i).Value = True Then Call Espace(Range("D1")) Cells(1, Espace(Range("D1"))).Value = Controls("checkbox" & i).Caption End If Next Unload UserForm1 Load UserForm2 UserForm2.Show End Sub

---

Ma fonction espace, me permet de me déplace vers la gauche jusqu'à ce qu'elle trouve une cellule vide sur la première ligne.

Je ne comprends pas pourquoi ce code ne fait pas ce que je souhaite...

Alors mon code vient de fonctionner...Je ne sais pour quelle raison.
Merci à tous pour vos remarques.

Citation:

---

Les 4 règles d'airain du développement informatique sont :

1)on ne peut pas établir un chiffrage tant qu'on a pas finalisé la conception
2)on ne peut pas finaliser la conception tant qu'on a pas complètement compris toutes les exigences
3)le temps de comprendre toutes les exigences, le projet est terminé
4)le temps de terminer le projet, les exigences ont changé

---

Oh que je le note celui là:ccool:

Bon j'ai un nouveau problème...:(

J'ai bien avancé toute l'après midi, mais là je bloque à nouveau et impossible de comprendre pourquoi mon code bug.

Je vous explique:
J'ai insérer du texte dans les cellules de la ligne 1.
Je souhaite avoir une macro qui fasse la chose suivante:
-à l'aide inputbox je rentre le nom d'une colone que je stock dans une variable string
-j'applique une fonction qui va chercher la première ligne vide
-je souhaite rentrer un nombre via un inputbox, dans la cellule de la ligne vide et de la colonne dont j'ai rentré le nom (du premier tiret).

Voici le code:

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16

Sub AjouterTemps() Dim i As String Dim j As Integer Dim ligne As Integer Dim secondes As Integer i = InputBox("Rentrez le nom d'une colone") secondes = InputBox("Rentrez le temps en secondes!!") For j = 1 To 26 If i = Cells(1, j).Value Then 'j'appelle ma fonction qui cherche la première ligne vide Call espace_ligne ligne = espace_ligne Cells(ligne, j).Value = "secondes" End If Next End Sub

---

Merci

Stochastique

Je suppose que tu veux ecrire le nombre de seconde saisie par la variable seconde
donc il faut supprimer les guillemets à "secondes"

Outre ce qu'a dit Daranc, ça serait plus facile si tu indentais ton code. C'est à dire, que tu décales vers la droite chaque niveau imbriqué. Tel quel, ton code(avec la modification de Daranc) donnerait :

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16

Sub AjouterTemps() Dim i As String Dim j As Integer Dim ligne As Integer Dim secondes As Integer i = InputBox("Rentrez le nom d'une colone") secondes = InputBox("Rentrez le temps en secondes!!") For j = 1 To 26 If i = Cells(1, j).Value Then 'j'appelle ma fonction qui cherche la première ligne vide Call espace_ligne ligne = espace_ligne Cells(ligne, j).Value = secondes End If Next End Sub

---

plus lisible, et donc plus facile à corriger/maintenir/améliorer.

Par contre, il me semble que ce code remplit TOUTES les colonnes entre la première et la 26ème qui auront en ligne 1 le nom tapé dans la InputBox. C'est bien ce que tu veux(C'est possible, hein, ça dépend de ce que tu veux faire)?

Et il me semble aussi que le call est superflu. Une fonction renvoie directement la valeur calculée, pas besoin d'un call préalable pour l'invoquer.

Bonjour el slapper,

Merci pour ces conseils, il est est vrai que c'est beaucoup plus lisible comme ça!

Oui tu as bien compris ce que je veux. Sais tu pourquoi ce code fonctionne pas?

Merci beaucoup!

Stochastique

Problème résolu....:P