Affecter un numéro de cellule dans une variable
Résolu/Fermé
robbybasch
Messages postés
100
Date d'inscription
lundi 14 juillet 2014
Statut
Membre
Dernière intervention
19 août 2022
-
15 juil. 2017 à 19:14
robbybasch Messages postés 100 Date d'inscription lundi 14 juillet 2014 Statut Membre Dernière intervention 19 août 2022 - 16 juil. 2017 à 10:23
robbybasch Messages postés 100 Date d'inscription lundi 14 juillet 2014 Statut Membre Dernière intervention 19 août 2022 - 16 juil. 2017 à 10:23
A voir également:
- Affecter un numéro de cellule dans une variable
- Numero prive - Guide
- Aller à la ligne dans une cellule excel - Guide
- Excel cellule couleur si condition texte - Guide
- Word numéro de page 1/2 - Guide
- Numéro père noël whatsapp - Accueil - Messagerie instantanée
2 réponses
Bonjour Robby,
Je te propose ce code VBA :
Cordialement.
Je te propose ce code VBA :
Option Explicit
Sub Essai()
Dim lili As Long
Select Case ActiveCell.Address
' planning service ménage
Case Is = "$C$3": lili = 8
' planning service entretien extérieur
Case Is = "$C$376": lili = 365
End Select
End Sub
Cordialement.
15 juil. 2017 à 21:25
Merci Lucien
J'ai cherché dans différents sujets qui se rapportaient à ce que je voulais faire, mais jamais trouvé. Ton code est simple et cela fonctionne.
Grand merci à Toi
CDL
Robby
15 juil. 2017 à 22:51
Cela fonctionne tout à fait comme je voulais. Juste un petit soucis de gestion du clic.
Comme puis je gérer, le fait que la cellule sélectionnée ne soit pas la bonne.
Par exemple, si la personne par mégarde ne clic pas sur la cellule $c$3 ou $c$376 la macro plante. Il faudrait une gestion que si le clic n'est pas au bon endroit un message apparaisse 'blabla" et retourne au debut par un ok.
merci par avance
Robby
Modifié le 16 juil. 2017 à 04:16
@Robby
Vu que le code est exécuté suite au clic sur un bouton, je ne pense pas que
ce soit approprié de « retourner au début » : l'utilisateur clique sur le bouton,
puis : a) la cellule active n'était pas bonne => affiche un message d'erreur
et s'arrête ; b) sinon, ça fait le traitement nécessaire.
Pour le cas a) : ça s'est donc arrêté, et aucun traitement n'a été fait ;
ensuite, à l'utilisateur de se placer sur une bonne cellule (selon le
service), puis de cliquer de nouveau sur le bouton Planning ;
c'est cela qui équivaut à ton « retour au début ». ;)
==========================
Fichier Excel 2007 : https://mon-partage.fr/f/iMcPbLYO/
À l'ouverture du classeur Excel, la cellule active est C3 ;
clic sur le bouton Planning => ça affiche la valeur de lili : 8
----------------------------------------------
Sélectionne C5 ; clic sur le même bouton => message :
"Vous n'êtes pas sur la bonne cellule." ; clic sur OK =>
ensuite, ça affiche la valeur de lili : 0
En effet, si la cellule active n'est aucune des 5 bonnes cellules
(celles requises pour les 5 services), lili garde sa valeur initiale
de 0 (définie implicitement par : Dim lili As Long).
==========================
À toi d'ajouter le code VBA pour la suite, juste après
End Select et avant End Sub ; exemple :
Option Explicit Private Sub Planning_Click() Dim lili As Long Select Case ActiveCell.Address ' planning du service Case Is = "$C$3": lili = 8 ' 1 : ménage Case Is = "$C$376": lili = 365 ' 2 : entretien extérieur Case Is = "$C$386": lili = 380 ' 3 : buanderie Case Is = "$C$396": lili = 390 ' 4 : garage Case Is = "$C$406": lili = 400 ' 5 : espaces verts Case Else: MsgBox "Vous n'êtes pas placé sur la bonne cellule.", 48, "Planning" End Select MsgBox "lili = " & lili, 64, "Planning" ' ligne juste pour démo, à enlever If lili = 0 Then Exit Sub ' sortie si lili = 0 (car pas de service adéquat) ' ' Placer ici la suite du traitement à effectuer, ' qui utilisera lili (à sa bonne valeur : > 0). ' ' ' ' End Sub⚠ Les services 3 à 5 sont inventés ; à toi de mettre les bonnes
adresses de cellules et les valeurs de lili correspondantes.
⚠ Remarque bien le test sur la valeur 0 de lili.
16 juil. 2017 à 10:23
je viens de transcrire ce dont tu as écrit. Avec quelques modifs qui vont avec la macro, c'est................................. PARFAITEMENT PARFAIT. Milles mercis.
J'avance petit à petit dans ma réalisation...
CDL
Robby