macro Excel

Recherche :

Mot : Pseudo : Filtrer
Bas de page
Auteur	Sujet : macro Excel

footelle

bonjour

je voudrais savoir s'il est possible qu'une macro s'exécute à chaque saisie dans une cellule
c'est à dire sans avoir à appuyer sur un bouton

mon problème est que je recherche une possiblité de savoir si plusieurs cases sont saisies (différentes de blanc)sur une meme ligne
j'ai 4 cellules à controler sur cette meme ligne, il ne m'en faut qu'une de saisie

si quelqu'un a une idée de génie et qu'il veuille bien m'en faire part

merci beaucoup

Publicité

pilosite

question bête, mais pourquoi ne pas rajouter une colonne qui teste si plusieurs cases sont saisies ? peux tu être plus précis sur ton besoin?

Message cité 1 fois

---------------
Envie de scripting ? Lisez donc "Scripting Windows" aux Editions Eyrolles ! tout pour apprendre le scripting orienté infrastructure Microsoft, en français dans les textes et exemples. http://www.eyrolles.com/Informatiq [...] 212116922/

watashi

La démotivation : JAMAIS !

Si tu veux lancer ton test en automatioque tu peux utiliser la Private Sub Worksheet_SelectionChange(ByVal Target As Range) ou Private Sub Worksheet_Change(ByVal Target As Range) de la feuille de calcul concernée.
Voilà un petit exemple simple de comment elle va fonctionner :

Code :

Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Row = 1 Then
MsgBox ("Saisie en ligne 1" )
'tu peu aussi placer ici un call...
End If
If Target.Column = 2 Then
MsgBox ("Saisie en colone B" )
End If
End Sub

Message cité 1 fois

---------------
Je bidouillle c'est sur... Mais j'essaye de faire en sorte que ça marche ;-)

footelle

pilosite a écrit :

question bête, mais pourquoi ne pas rajouter une colonne qui teste si plusieurs cases sont saisies ? peux tu être plus précis sur ton besoin?

je n'ai pas trouvé comment formuler ma formule
mais c'est bien ce principe

footelle

watashi a écrit :

Code :

Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Row = 1 Then
MsgBox ("Saisie en ligne 1" )
'tu peu aussi placer ici un call...
End If
If Target.Column = 2 Then
MsgBox ("Saisie en colone B" )
End If
End Sub

merci pour cette première information
maintenant je n'arrive pas à trouver le code qu'il me faut pour controler la saisie de plusieurs cellules sur la meme ligne
je suis plus que novice dans VB

Message cité 1 fois

watashi

La démotivation : JAMAIS !

footelle a écrit :

merci pour cette première information
maintenant je n'arrive pas à trouver le code qu'il me faut pour controler la saisie de plusieurs cellules sur la meme ligne
je suis plus que novice dans VB

Hummmmm t'as pas commencé par le plus simple
Tu as de la chance j'ai un peu de temps et je t'ai préparé un tit code. Pour le mettre en place:
dans visual basic éditor tu double clique sur la feuille concernée et tu colle tout ce que je t'ai mis en dessous. Je t'ai commenté le code, tu devrais pouvoir le modifier en cherchant un peu...
La fonction qui test :

Code :

Function TestSaisie(ByVal Ligne As Integer) As Boolean
'Fonction permettant de valider une saisie conforme
'pour une ligne donnée
'renvois true pour conforme
'Déclaration des variables
Dim a As Integer
a = 0
'Pour chaque colone concernée il faut placer une ligne comme ci dessous
'dans cells les 2, 3, 4 et 5 définissient le numéro des colonnes
'pour B, C, D, E
'A chaque fois que la cellule est remplie a augmente de 1
If ActiveSheet.Cells(Ligne, 2).Value <> "" Then a = a + 1
If ActiveSheet.Cells(Ligne, 3).Value <> "" Then a = a + 1
If ActiveSheet.Cells(Ligne, 4).Value <> "" Then a = a + 1
If ActiveSheet.Cells(Ligne, 5).Value <> "" Then a = a + 1
'test pour valider la saisie
If a <= 1 Then '<= au nombre de colones pleines maximum
'Ta saisie est conforme
TestSaisie = True
Else
TestSaisie = False
End If
End Function

L'appel dans la feuille pour test systèmatique

Code :

Private Sub Worksheet_Change(ByVal Target As Range)
'J' ai considéré que la plage de saisie commençait à la ligne 2
If Target.Row > 2 Then
' J'ai défini que le test porte sur les colonnes B à E
If Target.Column >= 2 And Target.Column <= 4 Then
If TestSaisie(Target.Row) = False Then
'Te vide la cellule qui vient d'être remplie
Target.Value = ""
'indique à l'utilisateur pourquoi c'est vidé
'Tu retrouve B C D E testé dans la fonction
MsgBox ("Vous ne pouvez saisir qu'une valeur dans les colones B, C, D, E" )
End If
End If
End If
End Sub

---------------
Je bidouillle c'est sur... Mais j'essaye de faire en sorte que ça marche ;-)

FORUM HardWare.fr

Programmation

VB/VBA/VBS

macro Excel

Sujets relatifs
Macro excel relou à faire	[excel - vba] Appel d'une macro dans une autre
[Excel] Fonction - appel a une macro comp.	Mot de passe sur macro Excel
[Excel] Comment protéger une macro ? [Résolu]	[excel] application automatique d'une macro à une case
macro excel et fichier normal.dot	Macro Conditionnelle sous EXCEL
Excel et macro	[Excel] Executer une macro automatiquement au lancement d'un classeur
Plus de sujets relatifs à : macro Excel

Page générée en 0.059 secondes