Discussion :

[phildu80]

Bonjour à tous

Voila, j'ai un code un VBA qui permet de mettre dans une cellule un nombre, un texte et dès que le valeur est vide il s'arrête

Voici ce code

Code vb :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
 
Sub NbreEmprunt_Materiel()
Dim Ligne
Dim Nombre As Integer
Ligne = 4
Nombre = 0
Colonne = 5
While (Worksheets("Modele").Cells(Ligne, 8).Value <> "")
    Nombre = Nombre + 1
Cells(Ligne, Colonne).Value = InputBox("Indiquez le nombre que vous voulez emprunter", "Emprunt")
Ligne = Ligne + 1 ' Passage à la ligne suivante
Wend
End Sub

Amitiés
phildu80

[zoom61]

Bonjour,

Vous devriez trouver des informations dans ce tutoriel.

Cdlt.

[phildu80]

J'avais deja regarder, j'avais fait des tests, mais cela ne me donné, pas le résultat que je souhaité

cordialement
phildu80

[zoom61]

Qu'avez-vous essayé ? Vous ne nous donnez aucun travail !
Nous ne faisons pas le travail, nous vous aidons...

Cdlt.

[phildu80]

Voici le fichier en question

phildu80

[zoom61]

Ce code te permet de demander une valeur numérique et de l'insérer à l'endroit demandé :

Code vb :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
Sub zoom61
 
    'Active la feuille active   
    maFeuille = ThisComponent.CurrentController.ActiveSheet
 
    'xxx
    Colonne = 5
    Ligne = 2
 
       'Récupère la valeur à insérer
       Chaine = InputBox("Indiquez le nombre que vous voulez emprunter", "Emprunt")
       'Active la cellule
       maCellule = maFeuille.getCellByPosition(Colonne,Ligne)
    'Insère la valeur dans la cellule ==> ici c'est numérique
    maCellule.Value = Chaine
 
End Sub

Je n'ai pas mis la boucle, car je n'ai pas compris à quoi elle servait

Cdlt.

[phildu80]

Si elle me sert pour répeter, l'affichage InputBOX, jusqu’à arriver la oui il y a plus rien sur une ligne

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
    Sub zoom61
 oDoc = ThisComponent
 
 
        Doc = ThisComponent
    'Active la feuille active   
    maFeuille = ThisComponent.CurrentController.ActiveSheet
 
    'xxx
    Colonne = 5
    Ligne = 2
    Nombre = 0
    While (oDoc.Sheets(oDoc.Sheets.Count - 1).GetCellByPosition(Colonne,3).Value<> "")
       'Récupère la valeur à insérer
       Chaine = InputBox("Indiquez le nombre que vous voulez emprunter", "Emprunt")
       'Active la cellule
       maCellule = maFeuille.getCellByPosition(Colonne,Ligne)
       Nombre = Nombre + 1
    'Insère la valeur dans la cellule ==> ici c'est numérique
    maCellule.Value = Chaine 
    Ligne = Ligne + 1
Wend
 
End Sub

phildu80

[zoom61]

Ton problème est donc

@+.