Discussion :

[toff7721]

Bonjour,

Je suis un novice avec le language VBA.

En effet, j'ai réalisé un tableau excel qui a pour fonctionnement d'ètre rempli au fur et à mesure (ligne par ligne).

C'est pourquoi afin que l'utilisateur de mon tableau sache dès qu'il ouvre le fichier quelle ligne il est necessaire de remplir, je voudrais créer à l'aide de VBA un message qui indique la ligne a remplir.

Pour résumer, par exemple si la case C5 est remplit je voudrai que le message indique "veuillez remplir la case C6" et ainsi de suite une foi que la case C6 est remplit je désirerai un message qu'il indique "veuillez remplir la case C7", etc...

Le problème étant que je ne possède pas vrèment de conaissance sur VBA et je ne trouve pas de réponse à ma question dans d'autre discussion....

Merci d'avance pour l'aide que vous pourrez m'apportez.....

[Didier Gonard]

Bonjour,

Vois ce ttuto très complet :

http://fring.developpez.com/vba/excel/msgbox/

aussi dans les forum du côté dernière cellule non vide, tu trouveras des choses du genre :

Code :

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

1
2
For Each cell In Range(Range("A65536").End(xlUp), Range("A5"))
.....

le but étant de trouver la cellule vierge où tu veux te positionner par défaut,de la sélectonner et d'en avertir l'utisateur.

Tu peux aussi utiliser direct une InputBox qui écrira dans la cellule voulue...

cordialement,

[maxxgraph]

Bonjout toff7721,

POur executer une macro au démarrage d'un classeur Excel, il faut utiliser l'évenelent auto_open()

De cette facon tu construite ta macro dans un module.

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
 
Sub auto_open()
 
Dim c as String 'Declaration d'une variable pour récuperer l'adresse 
de la cellule
 
c = Range("A1").End(xlDown).Offset(1, 0).Address 
'A1 étant la première cellule 
'rempli et Offset(1,0) exprime un decalage d'une cellule vers le bas à partir 
'de la dernière cellule plein End(xlDown), c'est à dire la cellule que tu 
'cherches !
 
Msgbox "La prochaine cellule à remplir est " & c, vbinformation+vbOkonly
'Boite de message pour informer la cellule à remplir avec la mise en forme qui 
'l'accompagne, c'est à dire l'image du point d'exclamation et du bouton OK seul
 
End sub

De cette facon tu auras à l'ouverture du classeur un Message Box qui t'indiquera la cellule à remplir.

Bonne journée

[Didier Gonard]

Bonjour,

Euh.... voir plutot du côté de l'évènement "Workbook_Open" de ThisWorkbook sauf en cas de maîtrise de la chose et d'un choix délibéré.

Auto_Open est une instructin ancienne qui était appellée à disparaître et dont Microsoft n'encourageait plus l'emploi pour des raisons de maintenance

A noter que leur actions respectives diffèrent aussi selon le mode d'activation du classeur..

cordialement,

Didier

[maxxgraph]

Ok, merci pour l'information

Donc je corrige mon code.

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
 
Sub Workbook_Open ()
 
Dim c as String 'Declaration d'une variable pour récuperer l'adresse 
de la cellule
 
Sheets(1).Activate 'Activation de la première feuille
 
c = Range("A1").End(xlDown).Offset(1, 0).Address 
'A1 étant la première cellule 
'rempli et Offset(1,0) exprime un decalage d'une cellule vers le bas à partir 
'de la dernière cellule plein End(xlDown), c'est à dire la cellule que tu 
'cherches !
 
Msgbox "La prochaine cellule à remplir est " & c, vbinformation+vbOkonly
'Boite de message pour informer la cellule à remplir avec la mise en forme qui 
'l'accompagne, c'est à dire l'image du point d'exclamation et du bouton OK seul
 
End sub

C'est plus coherent, non ?

[fring]

Bonjour,

petite précision complémentaire, la procédure événementielle est à insérer dans le module ThisWorkbook et pas dans un module standard et l'événement Open est une Private Sub.

Code à placer dans le module ThisWorkbook :

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

1
2
3
Private Sub Workbook_Open()
    MsgBox "Veuillez remplir la cellule " & Sheets(1).Cells(Rows.Count, 3).End(xlUp)(2).Address(0, 0) & " de la feuille " & Sheets(1).Name, vbInformation
End Sub