Sujet Précédent Sujet Suivant

Création d'une macro

Résolu/Fermé
Jiben59 Messages postés 120 Date d'inscription mardi 25 septembre 2012 Statut Membre Dernière intervention 2 janvier 2016 - 22 juil. 2014 à 18:11
Millaï Messages postés 171 Date d'inscription dimanche 8 juillet 2012 Statut Membre Dernière intervention 21 mars 2015 - 24 juil. 2014 à 19:10
Bonjour,

j'aimerai créer une macro pour que ma base de données m'avertir lorsqu'un champs n'a pas été remplit.

Par exemple, lorsque je rentre une date, je ne peux pas finir ma ligne si je n'ai pas renseigné le libellé du mouvement.

M'aider à comprendre à créer une ligne, et j'essaierai de faire la suite ensuite par mes soins.

Voici la capture d'&écran : http://www.hostingpics.net/viewer.php?id=632307Macro.png

Je remercie tous les gens qui m'aideront.
Bonne fin de journée,
cordialement.


A voir également:

1 réponse

Réponse 1 / 1
Millaï Messages postés 171 Date d'inscription dimanche 8 juillet 2012 Statut Membre Dernière intervention 21 mars 2015 26
24 juil. 2014 à 19:10
Bonjour, 

'Si A1 n'es pas vide alors ont force la selection sur A2
If Not Cells([1], [1]) = "" And Cells([1], [2]) = "" Then
    Cells([1], [2]).Select
End If

'Si A2 n'es pas vide alors ont force la selection sur A3
If Not Cells([1], [2]) = "" And Cells([1], [3]) = "" Then
    Cells([1], [3]).Select
End If

'Si A3 n'es pas vide alors ont force la selection sur A4
If Not Cells([1], [3]) = "" And Cells([1], [4]) = "" Then
    Cells([1], [4]).Select
End If

'Si A4 n'es pas vide alors ont force la selection sur A5
If Not Cells([1], [4]) = "" And Cells([1], [5]) = "" Then
    Cells([1], [5]).Select
End If

'Si A5 n'es pas vide alors ont force la selection sur A6
If Not Cells([1], [5]) = "" And Cells([1], [6]) = "" Then
    Cells([1], [6]).Select
End If

A mettre dans le Worksheet de votre page.
J'ai laisser le code le plus simple possible mais ont peut le réduire et prévoir les autres lignes le modifiant un peu
0