Excel 2007 / utilisation des boutons radio
bombadilom
-
eriiic Messages postés 24603 Date d'inscription Statut Contributeur Dernière intervention -
eriiic Messages postés 24603 Date d'inscription Statut Contributeur Dernière intervention -
Bonjour,
je dois créer un fichier excel pour suivi de materiel.
Ce fichier se présente sous la forme d'un calendrier.
Pour chaque jour 3 boutons d'option.
le premier bouton ne sert à rien
les boutons deux et trois modifie les colonnes suivantes.
voici le code que j'ai sorti :
Private Sub OptionButton2_Click()
If OptionButton2 = True Then
Range("F6:L6").Select
With Selection
.MergeCells = True
.Value = "Retour"
End With
End If
End Sub
Private Sub OptionButton3_Click()
If OptionButton3 = True Then
Range("F6:L6").Select
With Selection
.MergeCells = True
.Value = "Départ"
End With
End If
End Sub
Private Sub OptionButton5_Click()
If OptionButton5 = True Then
Range("F7:L7").Select
With Selection
.MergeCells = True
.Value = "Retour"
End With
End If
End Sub
Private Sub OptionButton6_Click()
If OptionButton6 = True Then
Range("F7:L7").Select
With Selection
.MergeCells = True
.Value = "Départ"
End With
End If
End Sub
sachant qu'une année compte quelques 365 jours, je ne me vois pas copier 365 fois la même chose.
Pourriez vous m'indiquer comment faire pour alléger un peu ça ?
Parce que là je dois dire que je commence à être un peu découragé.
Merci de votre aide.
P.S. si quelqu'un pouvait m'indiquer s'il est possible d'attacher mon fichier à mon message afin de plus de clarté dans ma demande, je lui en serait reconnaissant.
je dois créer un fichier excel pour suivi de materiel.
Ce fichier se présente sous la forme d'un calendrier.
Pour chaque jour 3 boutons d'option.
le premier bouton ne sert à rien
les boutons deux et trois modifie les colonnes suivantes.
voici le code que j'ai sorti :
Private Sub OptionButton2_Click()
If OptionButton2 = True Then
Range("F6:L6").Select
With Selection
.MergeCells = True
.Value = "Retour"
End With
End If
End Sub
Private Sub OptionButton3_Click()
If OptionButton3 = True Then
Range("F6:L6").Select
With Selection
.MergeCells = True
.Value = "Départ"
End With
End If
End Sub
Private Sub OptionButton5_Click()
If OptionButton5 = True Then
Range("F7:L7").Select
With Selection
.MergeCells = True
.Value = "Retour"
End With
End If
End Sub
Private Sub OptionButton6_Click()
If OptionButton6 = True Then
Range("F7:L7").Select
With Selection
.MergeCells = True
.Value = "Départ"
End With
End If
End Sub
sachant qu'une année compte quelques 365 jours, je ne me vois pas copier 365 fois la même chose.
Pourriez vous m'indiquer comment faire pour alléger un peu ça ?
Parce que là je dois dire que je commence à être un peu découragé.
Merci de votre aide.
P.S. si quelqu'un pouvait m'indiquer s'il est possible d'attacher mon fichier à mon message afin de plus de clarté dans ma demande, je lui en serait reconnaissant.
A voir également:
- Excel 2007 / utilisation des boutons radio
- Save as pdf office 2007 - Télécharger - Bureautique
- Liste déroulante excel - Guide
- Télécharger gratuitement notice d'utilisation - Guide
- Word et excel gratuit - Guide
- Radio française - Télécharger - Médias et Actualité
4 réponses
Re-bonjour,
Je patine toujours dans la semoule, ajoutant les uns derrière les autres des petits morceaux de code. Mais je suis sur qu'il est possible d'alléger tout ça pour une maintenance plus facile et des évolutions plus simples. Une petite aide s'il vous plait.
Je patine toujours dans la semoule, ajoutant les uns derrière les autres des petits morceaux de code. Mais je suis sur qu'il est possible d'alléger tout ça pour une maintenance plus facile et des évolutions plus simples. Une petite aide s'il vous plait.
Bonsoir,
Si tu tiens absolument à ce type de présentation, je ne vois pas de solution, du fait qu'il s'agit de macro événementielle. Et même si on fait une macro générale qui fait par exemple le lien entre le numéro de la ligne et le groupname des boutons, il faudra quand même coder chaque bouton...
Tu ne voudrais pas mettre des bêtes listes déroulantes dans la colonne E ? Ainsi en fonction du choix ça pourrait déclencher une macro événmentielle qui agirait sur les colonne suivantes...
m@rina
Si tu tiens absolument à ce type de présentation, je ne vois pas de solution, du fait qu'il s'agit de macro événementielle. Et même si on fait une macro générale qui fait par exemple le lien entre le numéro de la ligne et le groupname des boutons, il faudra quand même coder chaque bouton...
Tu ne voudrais pas mettre des bêtes listes déroulantes dans la colonne E ? Ainsi en fonction du choix ça pourrait déclencher une macro événmentielle qui agirait sur les colonne suivantes...
m@rina
Bonsoir,
Je te propose une autre approche, sélectionner une cellule en E6:E36, y déplacer les boutons et mémoriser le n° de ligne.
Une sélection d'un de ces bouton agira sur la ligne où ils sont.
Un fichier exemple sommaire pour te montrer le principe : Classeur1.xls
eric
Je te propose une autre approche, sélectionner une cellule en E6:E36, y déplacer les boutons et mémoriser le n° de ligne.
Une sélection d'un de ces bouton agira sur la ligne où ils sont.
Un fichier exemple sommaire pour te montrer le principe : Classeur1.xls
eric
Bonjour eriiic,
Non vous ne sentez pas le fromage, le renfermé peut être un peu mais au travers de l'écran j'ai un peu de mal à me faire une idée.
En fait j'ai regardé rapidement votre fichier et je dois avouer que je n'ai pas bien compris comment il fonctionne. Et là je veux le télécharger à nouveaeu et il se trouve qu'il est indisponible.
Auriez vous la gentillesse de le partager à nouveau. Et cette fois je vous promet que je répondrai dans des délais raisonnables.
Non vous ne sentez pas le fromage, le renfermé peut être un peu mais au travers de l'écran j'ai un peu de mal à me faire une idée.
En fait j'ai regardé rapidement votre fichier et je dois avouer que je n'ai pas bien compris comment il fonctionne. Et là je veux le télécharger à nouveaeu et il se trouve qu'il est indisponible.
Auriez vous la gentillesse de le partager à nouveau. Et cette fois je vous promet que je répondrai dans des délais raisonnables.
j'ai donc mis le fichier en pièce jointe à l'adresse suivante. Si vous pouviez m'éclairer de vos lumières je vous en serai reconnaissant.
https://www.cjoint.com/?jukuj1sX4k