Face caché de la cellule

[activeforce]

Bonjour,

Est il possible d'avoir une valeur arrondi et en cliquant sur cette cellule d'avoir la valeur exacte.
Ci- joint le classeur1, la cellule K8 a une valeur arrondie de 25kg. Est il possible en cliquant sur cette cellule d'avoir la valeur exacte à un chiffre prés cad 25.2 kg.
Ainsi lorsque je clique sur une autre cellule la valeur redevient à sa valeur initiale soit 25kg.

Merci d'avance.

 

[mth]

Re : Face caché de la cellule

re,

Effectivement, je croyais que tu voulais copier dans un autre fichier.

Du coup, autre tentative avec ce code, le clic droit est désactivé colonne O, mais le copier coller fonctionne. Vois si cela te va:

Private Sub Worksheet_BeforeRightClick(ByVal Target As Range, Cancel As Boolean)
Dim lig As Long
lig = Sheets("Exemple").Cells(Rows.Count, 7).End(xlUp).Row
If Not Intersect(Target, Range("O22:O" & lig)) Is Nothing And Target.Count = 1 Then
    Dim MaBarre As CommandBar
    On Error Resume Next
    CommandBars("BarrePopup").Delete
    Set MaBarre = Application.CommandBars.Add(Name:="BarrePopup", Position:=msoBarPopup)
        Set bouton = CommandBars("BarrePopup").Controls.Add(Type:=msoControlButton)
            bouton.Caption = Format(Target.Value, "00.00")
            MaBarre.ShowPopup
            Cancel = True
End If
End Sub

@ +

mth

 

[activeforce]

Re : Face caché de la cellule

Apparement y a une erreur : lig = Sheets("Exemple").Cells(Rows.Count, 7).End(xlUp).Row.

 

[mth]

Re : Face caché de la cellule

bonjour,

Cela fonctionne parfaitement chez moi, donc à tout hasard, dans le fichier dans lequel tu testes, l'onglet s'appelle bine "Exemple" ??

 

[activeforce]

Re : Face caché de la cellule

ok merci beaucoup ça marche.
Enfin dans la colonne G j'essaie de mettre les lettres en majuscule par le code suivant :

Private Sub Worksheet_Change(ByVal Target As Range)
If Not Intersect(Target, Columns("G")) Is Nothing Then
Target = UCase(Target)
End If
End Su

Sauf que quand j'efface une cellule, ça ne fonctionne plus.

 

[activeforce]

Re : Face caché de la cellule

Bonjour,

Est il aussi possible que lorsque l'on clique sur la cellule de la colonne O qu'on puisse la valeur à 2 chiffre prés de la cellule de la colonne N.
Exemple : Je clique sur la cellule O35 cela me donne la valeur arrondi à 2 chiffres prés des cellules O35 (25.23) et N35 (8.70).

Merci d'avance.

 

[activeforce]

Re : Face caché de la cellule

Personne pour me répondre ?

 

[Fo_rum]

Re : Face caché de la cellule

Bonjour,

avec un autre évènement : double clic
et 2 cas : bascule 2 cellules ou 2 colonnes

 

[activeforce]

Re : Face caché de la cellule

Bonjour et merçi.
J'ai intégrer une macro pour mettre en majuscule sur la colonne G mais si j'efface une celulle il y a un blocage.
Pourriez vous m'en donner la cause.
Merci.

 

[chris]

Re : Face caché de la cellule

Bonjour Mth, JCGL, le forum

Je partage l'avis de JCGL mais si on garde le VBA il me semble que le NOT est a enlever dans la ligne

If Not Intersect(Target, Columns...

Edit : j'avais omis de tourner la page 😡 et donc ma réponse était hors sujet

 

[Fo_rum]

Re : Face caché de la cellule

Re,

tu changes donc tu changes et tu changes ...
Pour éviter cela,

Private Sub Worksheet_Change(ByVal Target As Range)
  If Target.Column <> 7 Then Exit Sub
  Application.EnableEvents = False 'pour éviter des rappels intempestifs
  Target = UCase(Target)
  Application.EnableEvents = True  'obligatoire sinon les évènements sont ignorés
End Sub

 

[activeforce]

Re : Face caché de la cellule

Merci pour ta disponibilité et ta réactivité Fo_rum. Tout est ok.
ET merci aussi à mth et chris.
Bonne journée et bon week à tous .