Je tente de faire défiler des années en cliquant sur un bouton
(SpinButton). C'est du vba....pour executer une macro dans excel.
Je ne comprends pas pourquoi cela ne fonctionne pas pour le spindown ?le
debogueur va sur end sub.
D'autre part, je voudrais avoir une valeur par défaut (2000 ou cellule
active par ex.) dans "TxtValAnnée" a l'ouverture d'un formulaire que
j'ai créé (dans lequel se trouve ces lignes de codes).
Pouvez-vous m'aider ? Merci
Gégé
Private Sub SpBDefilAnnée_SpinDown()
If TxtValAnnée = 1980 Then
Exit Sub
Else
TxtValAnnée = TxtValAnnée - 1
End Sub
Private Sub SpBDefilAnnée_SpinUp()
If TxtValAnnée = 2005 Then
Exit Sub
Else
TxtValAnnée = TxtValAnnée + 1
End If
End Sub
Cette action est irreversible, confirmez la suppression du commentaire ?
Signaler le commentaire
Veuillez sélectionner un problème
Nudité
Violence
Harcèlement
Fraude
Vente illégale
Discours haineux
Terrorisme
Autre
anomymousA
bonjour,
manque le end if dans la 1ere procédure.
par ailluers, à l'ouverture de ton userform
TxtValAnnée.value 00 ou TxtValAnnée.value¬tivecell.value
A+
bonjour,
Je tente de faire défiler des années en cliquant sur un bouton (SpinButton). C'est du vba....pour executer une macro dans excel. Je ne comprends pas pourquoi cela ne fonctionne pas pour le spindown ?le debogueur va sur end sub. D'autre part, je voudrais avoir une valeur par défaut (2000 ou cellule active par ex.) dans "TxtValAnnée" a l'ouverture d'un formulaire que j'ai créé (dans lequel se trouve ces lignes de codes). Pouvez-vous m'aider ? Merci Gégé
Private Sub SpBDefilAnnée_SpinDown() If TxtValAnnée = 1980 Then Exit Sub Else TxtValAnnée = TxtValAnnée - 1 End Sub
Private Sub SpBDefilAnnée_SpinUp() If TxtValAnnée = 2005 Then Exit Sub Else TxtValAnnée = TxtValAnnée + 1 End If End Sub
bonjour,
manque le end if dans la 1ere procédure.
par ailluers, à l'ouverture de ton userform
TxtValAnnée.value 00
ou
TxtValAnnée.value¬tivecell.value
A+
bonjour,
Je tente de faire défiler des années en cliquant sur un bouton
(SpinButton). C'est du vba....pour executer une macro dans excel.
Je ne comprends pas pourquoi cela ne fonctionne pas pour le spindown ?le
debogueur va sur end sub.
D'autre part, je voudrais avoir une valeur par défaut (2000 ou cellule
active par ex.) dans "TxtValAnnée" a l'ouverture d'un formulaire que
j'ai créé (dans lequel se trouve ces lignes de codes).
Pouvez-vous m'aider ? Merci
Gégé
Private Sub SpBDefilAnnée_SpinDown()
If TxtValAnnée = 1980 Then
Exit Sub
Else
TxtValAnnée = TxtValAnnée - 1
End Sub
Private Sub SpBDefilAnnée_SpinUp()
If TxtValAnnée = 2005 Then
Exit Sub
Else
TxtValAnnée = TxtValAnnée + 1
End If
End Sub
TxtValAnnée.value 00 ou TxtValAnnée.value¬tivecell.value
A+
bonjour,
Je tente de faire défiler des années en cliquant sur un bouton (SpinButton). C'est du vba....pour executer une macro dans excel. Je ne comprends pas pourquoi cela ne fonctionne pas pour le spindown ?le debogueur va sur end sub. D'autre part, je voudrais avoir une valeur par défaut (2000 ou cellule active par ex.) dans "TxtValAnnée" a l'ouverture d'un formulaire que j'ai créé (dans lequel se trouve ces lignes de codes). Pouvez-vous m'aider ? Merci Gégé
Private Sub SpBDefilAnnée_SpinDown() If TxtValAnnée = 1980 Then Exit Sub Else TxtValAnnée = TxtValAnnée - 1 End Sub
Private Sub SpBDefilAnnée_SpinUp() If TxtValAnnée = 2005 Then Exit Sub Else TxtValAnnée = TxtValAnnée + 1 End If End Sub
Gégé
bonjour,
manque le end if dans la 1ere procédure.
par ailluers, à l'ouverture de ton userform
TxtValAnnée.value 00 ou TxtValAnnée.value¬tivecell.value
Merci bien. Gégé
bonjour,
manque le end if dans la 1ere procédure.
par ailluers, à l'ouverture de ton userform
TxtValAnnée.value 00
ou
TxtValAnnée.value¬tivecell.value
