XL 2016 Cellule Active

Créer une discussion
Répondre
  • Initiateur de la discussion Initiateur de la discussion Jgral
  • Date de début Date de début

Boostez vos compétences Excel avec notre communauté !

Rejoignez Excel Downloads, le rendez-vous des passionnés où l'entraide fait la force. Apprenez, échangez, progressez – et tout ça gratuitement ! 👉 Inscrivez-vous maintenant !

S'inscrire
Jgral

Jgral

XLDnaute Nouveau
Bonjour,

Lorsque je clique sur une checkbox ma cellule active devient celle où se trouve la checkBox alors que je souhaite que la cellule active reste celle sur laquelle j'ai cliqué juste avant la checkBox auriez vous des idées ?

VB: 
Private Sub CheckBox6_Click()
    If CheckBox6 = True Then
        CheckBox6.Font.Bold = True
        'Dimensions et position de la zone de texte
        H = 20 '<-- hauteur
        W = 175 '<-- largeur
        L = ActiveCell.Column  '<-- position horizontale
        T = ActiveCell.Row '<-- position verticale'Insertion de la zone de texte
        ActiveSheet.Shapes.AddTextbox(msoTextOrientationHorizontal, L, T, W, H).Select
        Selection.Name = "ztxt1" '<-- nom de la zone de texte
       
        'Paramètres de la zone de texte
   
        With Selection
            '.Name = "txt2" '<-- nom de la zone de texte
            .Characters.Text = "Convention sur Parcelle"
            '.HorizontalAlignment = xlCenter '<-- texte centré horizontalement
            .VerticalAlignment = xlCenter '<-- texte centré verticalement
            .ShapeRange.Fill.ForeColor.SchemeColor = 1 '<-- couleur de fond
            .ShapeRange.Line.Weight = 2.5 '<-- épaisseur du cadre
            .ShapeRange.Line.ForeColor.SchemeColor = 7 '<-- couleur du cadre
        End With
       
        'Mise en forme du texte
        With Selection.Font
            .Name = "Calibri" '<-- police
            .Size = 16 '<-- taille
            .Bold = True '<-- mise en gras
            .ColorIndex = 1 '<-- couleur
        End With
        Range("A1").Activate '<-- quitter la sélection de la zone de texte
    Else
        CheckBox6.Font.Bold = False
    End If
End Sub
 
Solution
Staple1600
Bonsoir le fil

Si cela peut servir, un moyen simple de dessiner une forme en la paramétrant
VB: 
Sub testA()
Dim rng As Range
Set rng = Cells(Rows.Count, 1).End(3).Offset(, 1)
Draw_Shape msoShapeRectangle, rng.Address, "Convention sur Parcelle"
End Sub
Sub testB()
Dim rng As Range
Set rng = Range("C15")
'on peut choisir la forme
Draw_Shape msoShapeRoundedRectangularCallout, rng.Address, "Excel-Downloads.com"
End Sub

Function Draw_Shape(ShapeType As MsoAutoShapeType, celAdr As String, Texte As String) As Shape
With ActiveSheet.Range(celAdr)
Set Draw_Shape = ActiveSheet.Shapes.AddShape(ShapeType, .Left + 5, .Top, 175, 20)
  With Draw_Shape
    .TextFrame.Characters.Text = Texte
    .TextFrame.HorizontalAlignment = xlHAlignCenter...
Trier par date Trier par votes
Merci de votre réponse mais ça ne fonctionner pas
VB: 
Private Sub CheckBox6_Click()
    If CheckBox6 = True Then
        CheckBox6.Font.Bold = True
        'Dimensions et position de la zone de texte
        H = 20 '<-- hauteur
        W = 175 '<-- largeur
        L = ActiveCell.Column  '<-- position horizontale
        T = ActiveCell.Row '<-- position verticale'Insertion de la zone de texte
        ActiveSheet.Shapes.AddTextbox(msoTextOrientationHorizontal, L, T, W, H).Select
        'Selection.Name = "ztxt1" '<-- nom de la zone de texte
        
        'Paramètres de la zone de texte
    
        With Selection
            '.Name = "txt2" '<-- nom de la zone de texte
            .Characters.Text = "Convention sur Parcelle"
            '.HorizontalAlignment = xlCenter '<-- texte centré horizontalement
            .VerticalAlignment = xlCenter '<-- texte centré verticalement
            .ShapeRange.Fill.ForeColor.SchemeColor = 1 '<-- couleur de fond
            .ShapeRange.Line.Weight = 2.5 '<-- épaisseur du cadre
            .ShapeRange.Line.ForeColor.SchemeColor = 7 '<-- couleur du cadre
        End With
        
        'Mise en forme du texte
        With Selection.Font
            .Name = "Calibri" '<-- police
            .Size = 16 '<-- taille
            .Bold = True '<-- mise en gras
            .ColorIndex = 1 '<-- couleur
        End With
        Range("A1").Activate '<-- quitter la sélection de la zone de texte
    Else
        CheckBox6.Font.Bold = False
    End If
    Cell(T, L).Select
End Sub
 
Vote positif 0 Vote négatif
Je suis désolé cela ne fonctionne pas voici le fichier pour faciliter la compréhension. Dans le "menu défilant d'en haut" je vous invite à cliquer sur la CheckBox "Convention". Cela fera apparaître une zone de texte en haut à gauche de la fenêtre. Or je souhaite que cette zone de texte apparaisse dans la dernière cellule active avant le clic sur la CheckBox
 

Pièces jointes

Vote positif 0 Vote négatif
Voici rectifié,
j'ai décaler ligne L et T et ajouté .Top et .Left
Bruno
VB: 
Private Sub CheckBox6_Click()
L = ActiveCell.Column  '<-- position horizontale
T = ActiveCell.Row '<-- position verticale'Insertion de la zone de texte
    If CheckBox6 = True Then
        CheckBox6.Font.Bold = True
        'Dimensions et position de la zone de texte
        H = 20 '<-- hauteur
        W = 175 '<-- largeur
        ActiveSheet.Shapes.AddTextbox(msoTextOrientationHorizontal, L, T, W, H).Select
        'Selection.Name = "ztxt1" '<-- nom de la zone de texte
        
        'Paramètres de la zone de texte
    
        With Selection
            '.Name = "txt2" '<-- nom de la zone de texte
            .Characters.Text = "Convention sur Parcelle"
            '.HorizontalAlignment = xlCenter '<-- texte centré horizontalement
            .VerticalAlignment = xlCenter '<-- texte centré verticalement
            .ShapeRange.Fill.ForeColor.SchemeColor = 1 '<-- couleur de fond
            .ShapeRange.Line.Weight = 2.5 '<-- épaisseur du cadre
            .ShapeRange.Line.ForeColor.SchemeColor = 7 '<-- couleur du cadre
            .Top = Cells(T, L).Top + 10
            .Left = Cells(T, L).Left + 10
        End With
        
        'Mise en forme du texte
        With Selection.Font
            .Name = "Calibri" '<-- police
            .Size = 16 '<-- taille
            .Bold = True '<-- mise en gras
            .ColorIndex = 1 '<-- couleur
        End With
        Range("A1").Activate '<-- quitter la sélection de la zone de texte
    Else
        CheckBox6.Font.Bold = False
    End If
End Sub
 
Vote positif 0 Vote négatif
Bonjour youky(BJ), Jgral, Le forum.

Une autres solutions : (Les 2 sont correctes)
Pour :

VB: 
' <-- position horizontale
        T = Range(ActiveCell.Address).Top
        Pour :
                  T = ActiveCell.Row '<-- position verticale'Insertion de la zone de texte
                  .Top = Cells(T, L).Top + 10
' <-- position verticale'Insertion de la zone de texte
        L = Range(ActiveCell.Address).Left
        Pour :
                 L = ActiveCell.Column  '<-- position horizontale                   
                 .Left = Cells(T, L).Left + 10

VB: 
Private Sub CheckBox6_Click()
    If CheckBox6 = True Then
        CheckBox6.Font.Bold = True
        'Dimensions et position de la zone de texte
        Dim H As Single
        H = 20 '<-- hauteur
        Dim W As Single
        W = 175 '<-- largeur
        Dim L As Single
        L = Range(ActiveCell.Address).Left '<-- position horizontale
        Dim T As Single
        T = Range(ActiveCell.Address).Top '<-- position verticale'Insertion de la zone de texte
        ActiveSheet.Shapes.AddTextbox(msoTextOrientationHorizontal, L, T, W, H).Select
    
        'Paramètres de la zone de texte
        With Selection
            '.Name = "txt2" '<-- nom de la zone de texte
            .Characters.Text = "Convention sur Parcelle"
            '.HorizontalAlignment = xlCenter '<-- texte centré horizontalement
            .VerticalAlignment = xlCenter '<-- texte centré verticalement
            .ShapeRange.Fill.ForeColor.SchemeColor = 1 '<-- couleur de fond
            .ShapeRange.Line.Weight = 2.5 '<-- épaisseur du cadre
            .ShapeRange.Line.ForeColor.SchemeColor = 7 '<-- couleur du cadre
        End With
    
        'Mise en forme du texte
        With Selection.Font
            .Name = "Calibri" '<-- police
            .Size = 16 '<-- taille
            .Bold = True '<-- mise en gras
            .ColorIndex = 1 '<-- couleur
        End With
        'Range("A1").Activate '<-- quitter la sélection de la zone de texte
        ActiveCell.Select '<-- quitter la sélection de la zone de texte
    Else
        CheckBox6.Font.Bold = False
    End If
    ActiveCell.Select '<-- quitter la sélection de la zone de texte
End Sub

Laurent
 
Dernière édition:
Vote positif 0 Vote négatif
Bonsoir le fil

Si cela peut servir, un moyen simple de dessiner une forme en la paramétrant
VB: 
Sub testA()
Dim rng As Range
Set rng = Cells(Rows.Count, 1).End(3).Offset(, 1)
Draw_Shape msoShapeRectangle, rng.Address, "Convention sur Parcelle"
End Sub
Sub testB()
Dim rng As Range
Set rng = Range("C15")
'on peut choisir la forme
Draw_Shape msoShapeRoundedRectangularCallout, rng.Address, "Excel-Downloads.com"
End Sub

Function Draw_Shape(ShapeType As MsoAutoShapeType, celAdr As String, Texte As String) As Shape
With ActiveSheet.Range(celAdr)
Set Draw_Shape = ActiveSheet.Shapes.AddShape(ShapeType, .Left + 5, .Top, 175, 20)
  With Draw_Shape
    .TextFrame.Characters.Text = Texte
    .TextFrame.HorizontalAlignment = xlHAlignCenter: .TextFrame.VerticalAlignment = xlVAlignCenter
    With .TextFrame.Characters.Font
    .Name = "Calibri": .ColorIndex = 1: .Size = 16: .Bold = -1
    End With
    .Fill.ForeColor.SchemeColor = 1: .Line.Weight = 2.5: .Line.ForeColor.SchemeColor = 7
  End With
End With
End Function
PS: Ceci n'est qu'un exemple illustratif dont le demandeur s'inspirera ou pas 😉
 
Vote positif 0 Vote négatif
Solution
Rejoins nos membres "Supporter XLD" et booste ton expérience Excel !
- Navigue sans publicité
- Accède à Cléa, notre assistante IA experte Excel... et pas que...
- Profite de fonctionnalités exclusives
Ton soutien permet à Excel Downloads de rester 100% gratuit et de continuer à rassembler les passionnés d'Excel.
Je deviens Supporter XLD

Discussions similaires

C
  • Question Question
Microsoft 365 format date
Réponses
3
Affichages
139
Dudu2
Dudu2
G
  • Question Question
XL 2010 Modifier couleur de texte de zonetexte par vba
Réponses
3
Affichages
168
patricktoulon
patricktoulon
U
  • Résolu(e)
Autres Centrer ou Annuler Centrer
Réponses
12
Affichages
665
un internaute
U
Lu76Fer
XLS : Evènements souris 'click' sur la grille & astuces
Réponses
3
Affichages
398
Lu76Fer
Lu76Fer
S
  • Question Question
Microsoft 365 créer un macro vba
Réponses
0
Affichages
597
souhaib ad
S
C
Excel : Fusionner des cellules en conservant le contenu et la police des cellules à fusionner
Réponses
5
Affichages
657
crocrocro
C
Yann71
  • Question Question
XL 2019 Ajouter un " aperçu avant impression " à ce code
Réponses
7
Affichages
942
Yann71
Yann71
Usine à gaz
  • Question Question
Microsoft 365 Développeur - Insérer - Contrôle de formulaire : format liste déroulante possible ?
2 3 4
Réponses
57
Affichages
5 K
patricktoulon
patricktoulon
PHV.FSM
  • Question Question
XL 2016 Calculer la position sur l'écran d'une position sur la grille (XL 2003)
2
Réponses
27
Affichages
4 K
Nicolas JACQUIN
Nicolas JACQUIN
gigiwin
  • Question Question
XL 2016 RESOLU: renommer feuille par rapport à cellule VBA
Réponses
3
Affichages
990
sylvanu
sylvanu
ChTi160
  • Question Question
Microsoft 365 Modifier une cellule depuis un Userform
2
Réponses
15
Affichages
2 K
job75
job75
T
  • Résolu(e)
XL 2016 Bouton unique ajouter/supprimer shape
Réponses
4
Affichages
718
TechnologyNewStore
T
patricktoulon
  • Résolu(e)
XL 2013 labelou shapes et vice et versa
2
Réponses
15
Affichages
1 K
patricktoulon
patricktoulon
Dudu2
  • Suggestion Suggestion
Texte Définir les propriétés d'une cellule ou d'un Range (couleurs, fonte, ..., valeur) dans une formule
Réponses
0
Affichages
1 K
Dudu2
Dudu2
D
  • Question Question
XL 2010 Création et mise à jour d'un TCD tableau croisé dynamique avec macro VBA
Réponses
1
Affichages
3 K
chris
chris
J
  • Question Question
XL 2019 Ajout d'un bouton fixe vba
Réponses
1
Affichages
661
jui42
J
Jgral
  • Résolu(e)
XL 2016 Récupération de Valeur de CheckBox (dans un UserForm) et placement dans une zone de texte
Réponses
2
Affichages
2 K
Jgral
Jgral
Fredox
  • Question Question
XL 2019 [VBA] Modifier la position de l'image contenue dans la cellule active
2
Réponses
16
Affichages
3 K
Fredox
Fredox
D
  • Question Question
Microsoft 365 Modification d'un code VBA
Réponses
8
Affichages
1 K
Hasco
Hasco
S
  • Question Question
XL 2019 modifications macro svp
Réponses
3
Affichages
1 K
Bernard_XLD
Bernard_XLD
Retour