Mise en forme conditionnel

comment peut on faire ca dans une meme cellule

exemple : je voudrai que, quand je rentre 14 cela me montre 2

tout les chiffres que je rentre me les divisé par 7

7 egale 1

14 egal 2

21 egale 3

etc....

je pense a la mise en forme conditionnel

mais je n y arrive pas

merci d avance

Bonjour

Essai ce code, à mettre dans le code VBA de la feuille, Clique droit sur l'onglet de la feuille, puis sur "visualiser le code", et colle le code dans la fenêtre VBA qui s'affiche

Private Sub Worksheet_Change(ByVal Target As Range)
Dim Isect As Range
'Supprime la gestion des événements dans la feuille
'Pour éviter la mise en boucle de l'événement
Application.EnableEvents = False
'Contrôle si la saisie a été effectuée dans les cellules de la plage A1:A100
Set Isect = Application.Intersect(Target, Range("A1:A100"))
If Not Isect Is Nothing Then
   'Division de la valeur de la cellule par 7
   Target = Target / 7
End If
'Réactivation des événements dans la feuille
Application.EnableEvents = True
End Sub

@+Jean-Marie

JE SUIS DESOLE MAIS JE SUIS NOVICE ALORS

QUAND VOUS ME DITES : Essai ce code, à mettre dans le code VBA de la feuille, Clique droit sur l'onglet de la feuille, puis sur "visualiser le code", et colle le code dans la fenêtre VBA qui s'affiche

JE SUIS A LA RUE COMPLET

SI POSSIBLE DE M ENVOYER LE FICHIER TYPE

MERCI D AVANCE

RE...

https://www.excel-pratique.com/~files/doc/SaisieDivisePar7.xls

@+Jean-Marie

UN ENORME MERCI

ET COMMENT FAITES VOUS POUR FAIRE SUR DEUX COLONNES

Re...

Soit

si les deux colonnes sont côte à côte

Set Isect = Application.Intersect(Target, Range("A1:B100")) 

ou

quand les colonnes ne sont pas contiguës

Private Sub Worksheet_Change(ByVal Target As Range)
Dim Plage As Variant
Dim Isect As Range
Dim I As Byte
'Définit les plages de contrôles
Plage = Array("A1:A100", "C1:C100")
'Supprime la gestion des événements dans la feuille
'Pour éviter la mise en boucle de l'événement
Application.EnableEvents = False
'Contrôle si la saisie a été effectuée dans les cellules de la plage A1:A100
For I = 0 To 1
Set Isect = Application.Intersect(Target, Range(Plage(I)))
   If Not Isect Is Nothing Then
      'Division de la valeur de la cellule par 7
      Target = Target / 7
      Exit For
   End If
Next I
'Réactivation des événements dans la feuille
Application.EnableEvents = True
End Sub

@+Jean-Marie

MERCI JEAN-MARIE

J ALLUCINE

COMMENT SAVEZ VOUS TOUT CA

COMMENT PEUX TON

DIVISER LA COLONNE "A" PAR 5

DIVISER LA COLONNE "B" PAR 7

DIVISER LA COLONNE "C" PAR 7

MERCI

Re...

Voilà

Private Sub Worksheet_Change(ByVal Target As Range)
Dim Plage As Variant
Dim Diviseur As Variant
Dim Isect As Range
Dim I As Byte
'Définit les plages de contrôle
Plage = Array("A1:A100", "B1:B100", "C1:C100")
'Définit les diviseurs
Diviseur = Array(5, 7, 7)
'Supprime la gestion des événements dans la feuille
'Pour éviter la mise en boucle de l'événement
Application.EnableEvents = False
'Contrôle si la saisie a été effectuée dans les cellules de la plage A1:A100
For I = 0 To 2
Set Isect = Application.Intersect(Target, Range(Plage(I)))
   If Not Isect Is Nothing Then
      'Division de la valeur de la cellule
      'Test si la valeur de la cellule est numérique
      If IsNumeric(Target) Then
         Target = Target / Diviseur(I)
      End If
      Exit For
   End If
Next I
'Réactivation des événements dans la feuille
Application.EnableEvents = True
End Sub

@+Jean-Marie

FABULEUX

JE COMPREND RIEN

MAIS CA MARCHE NICKEL

ENCORE UN GRAND MERCI POUR VOTRE SAVOIR

bonjour à tous surtout à Jean-Marie

j'aurai aimé savoir si il est possible de faire un calcul par rapport à une cellule remplie de couleur.

le vert doit effectuer 5 jours pour obtenir 1 permanence

le jaune doit effectuer 5 jours pour obtenir 1 permanence

le rouge doit effectuer 7 jours pour obtenir 1 permanence

ainsi que les autres couleurs pour obtenir 1 jours

la 1er rangée s'appelle DUPONT et il a effectué pendant le mois :

une permanence (vert 5 j), (jaune 5 j), (rouge 7 j) et aussi divers autres activités qui correspond à divers couleurs soit 1 jour égale 1 jour

je m'explique avec le fichier:https://www.excel-pratique.com/~files/doc/JANV-2007.xls

merci d'avance à tout le monde

Bonjour

C'est possbile, regarde le fichier

https://www.excel-pratique.com/~files/doc/JANV2007.xls

Avec une function dans le classeur, pour y accéder Alt+F11.

@+Jean-Marie

merci Jean-Marie

ca fonctionne nickel

mais quand je le modifi

je suis obligé de fermer le fichier donc enregistrer puis de le re ouvrir et de désactivé les macro pour constaté le changement que j'ai effectué

es ce normale??

Re...

J'ai rajouté ce qu'il fallait.

- Modification du code de la function, rajout d'une ligne

application.volatile

- Rajout dans la feuille du ThisWorkBook, dans l'événément SheetSelectionChange

Private Sub Workbook_SheetSelectionChange(ByVal Sh As Object, ByVal Target As Range)
    Range("AI:BC").Calculate
End Sub

https://www.excel-pratique.com/~files/doc/mpuaUJANV2007.xls

@+Jean-Marie

Désolé Jean-Marie, j'ai effectué une mauvaise manipulation

en fête cela fonctionne parfaitement

mille excuse d'avoir mis en doute vos compétences

il va falloir vraiment que je fasse quelque chose