OVH Cloud OVH Cloud

Changement police d'une liste déroulante, et autre

4 réponses
Avatar
fifigim
Bonjour,

Je souhaitera savoir comment changer la police du texte d'une liste
déroulante, j'ai créé cette dernière avec la barre d'outil "formulaire" ?

De plus, je voudrai savoir comment remplir (en bleu, vert....) le fond d'une
cellule en fonction d'une valeur (1,2,...) d'une autre cellule ?

Aussi, et pour finir pour maintenant, comment faire apparaître une image,
d'une feuille A, sur une feuille B en fonction d'une valeur d'une cellule ?

Merci d'avance !

4 réponses

Avatar
michdenis
Bonjour fifigim,

| Je souhaitera savoir comment changer la police du texte d'une liste
| déroulante, j'ai créé cette dernière avec la barre d'outil "formulaire" ?

Impossible avec cette barre....utilise les contrôles de la barre d'outils Contrôle pour plus de latitude dans les propriétés des
contrôles

| De plus, je voudrai savoir comment remplir (en bleu, vert....) le fond d'une
| cellule en fonction d'une valeur (1,2,...) d'une autre cellule ?

Si tu as un nombre de conditions limitées à 3 + celle de "l'état normal" de la cellule, regarde la commande "Mise en forme
conditionnelle" du menu Format.

Dans la liste déroulante de la fenêtre à gauche, tu sélectionnes : La formule est :
et dans la boîte de saisie tu entres exemple : ¡=5
et à partir du bouton format de la fenêtre, tu détermines la couleur que prendra ta cellule lorsque A1 sera égale à 5.


| Aussi, et pour finir pour maintenant, comment faire apparaître une image,
| d'une feuille A, sur une feuille B en fonction d'une valeur d'une cellule ?

Voici un exemple comment déplacer une image d'une feuille à l'autre
dans une cellule bien précise de la feuille

'--------------------------------------
Sub Image()

Dim Sh As Shape, Nom As String
Nom = ActiveSheet.Name
Application.ScreenUpdating = False
Set Sh = Worksheets("Feuil4").Shapes("Image 1").Duplicate
Sh.CopyPicture

With Worksheets("Feuil2")
.Activate
.Paste
With .Range("B5")
Selection.Top = .Top
Selection.Left = .Left
Selection.Height = .Height
Selection.Width = .Width
.Select
End With
End With
'pour supprimer l'image originale
' Sh.Delete 'au besoin
Sheets(Nom).Select

End Sub
'--------------------------------------


Salutations!


"fifigim" a écrit dans le message de news:
Bonjour,

Je souhaitera savoir comment changer la police du texte d'une liste
déroulante, j'ai créé cette dernière avec la barre d'outil "formulaire" ?

De plus, je voudrai savoir comment remplir (en bleu, vert....) le fond d'une
cellule en fonction d'une valeur (1,2,...) d'une autre cellule ?

Aussi, et pour finir pour maintenant, comment faire apparaître une image,
d'une feuille A, sur une feuille B en fonction d'une valeur d'une cellule ?

Merci d'avance !
Avatar
fifigim
Merci pour la rapidité de la réponse !

Donc, en utilisant une liste de la boite à outil contrôle, comment, déjà,
rentrer les choix que je désire et donc, changer la police ?

Pour le fond de couleur de cellule, c'est super, ça marche très bien !

Pour les images, ça marche, mais... J'ai des images, dans une feuille B,
d'une taille déjà prévue pour rentrer pile dans une feuille A, disons 7 cm de
haut...je voudrai qu'elle reste de 7 cm de haut, quand elle arrive dans la
feuille A, puisque c'est prevu pour...
De plus, je voudrai d'en fonction (j'ai pas mal de SI...) de valeurs d'une
cellule "G30" et "K47" ou "F59", ce soit par exemple l' "image 25" qui
s'affiche.

Merci d'avance !






Bonjour fifigim,

| Je souhaitera savoir comment changer la police du texte d'une liste
| déroulante, j'ai créé cette dernière avec la barre d'outil "formulaire" ?

Impossible avec cette barre....utilise les contrôles de la barre d'outils Contrôle pour plus de latitude dans les propriétés des
contrôles

| De plus, je voudrai savoir comment remplir (en bleu, vert....) le fond d'une
| cellule en fonction d'une valeur (1,2,...) d'une autre cellule ?

Si tu as un nombre de conditions limitées à 3 + celle de "l'état normal" de la cellule, regarde la commande "Mise en forme
conditionnelle" du menu Format.

Dans la liste déroulante de la fenêtre à gauche, tu sélectionnes : La formule est :
et dans la boîte de saisie tu entres exemple : ¡=5
et à partir du bouton format de la fenêtre, tu détermines la couleur que prendra ta cellule lorsque A1 sera égale à 5.


| Aussi, et pour finir pour maintenant, comment faire apparaître une image,
| d'une feuille A, sur une feuille B en fonction d'une valeur d'une cellule ?

Voici un exemple comment déplacer une image d'une feuille à l'autre
dans une cellule bien précise de la feuille

'--------------------------------------
Sub Image()

Dim Sh As Shape, Nom As String
Nom = ActiveSheet.Name
Application.ScreenUpdating = False
Set Sh = Worksheets("Feuil4").Shapes("Image 1").Duplicate
Sh.CopyPicture

With Worksheets("Feuil2")
.Activate
.Paste
With .Range("B5")
Selection.Top = .Top
Selection.Left = .Left
Selection.Height = .Height
Selection.Width = .Width
.Select
End With
End With
'pour supprimer l'image originale
' Sh.Delete 'au besoin
Sheets(Nom).Select

End Sub
'--------------------------------------


Salutations!


"fifigim" a écrit dans le message de news:
Bonjour,

Je souhaitera savoir comment changer la police du texte d'une liste
déroulante, j'ai créé cette dernière avec la barre d'outil "formulaire" ?

De plus, je voudrai savoir comment remplir (en bleu, vert....) le fond d'une
cellule en fonction d'une valeur (1,2,...) d'une autre cellule ?

Aussi, et pour finir pour maintenant, comment faire apparaître une image,
d'une feuille A, sur une feuille B en fonction d'une valeur d'une cellule ?

Merci d'avance !







Avatar
michdenis
Bonjour fifigim,

| comment, déjà, rentrer les choix que je désire et donc, changer la police ?

Sur la barre d'outils contrôle, pour passer en mode création et tu as un bouton "propriété". Tu sélectionnes ta liste déroulante et
tu affiches les propriétés du contrôle.

Pour afficher les valeurs de ta plage de cellules dans la liste déroulante, tu définis la propriété ListFillRange : Feuil1!A1:A10


Pour la dernière section de ta question, tu peux utiliser l'événement "change" de la feuille où tes cellules se modifient.
Il faudrait possiblement insérer un Select Case dans la procédure ... mais tes informations ne sont pas assez précises pour aller
plus loin .
Ce code est à mettre dans la feuille module où l'action se déroule !
'----------------------------------
Private Sub Worksheet_Change(ByVal Target As Range)

Dim Sh As Shape, Nom As String
Dim Rg As Range
Set Rg = Intersect(Target, Range("G30,K47,F59"))
Nom = ActiveSheet.Name

If Not Rg Is Nothing Then
Application.ScreenUpdating = False
Set Sh = Worksheets("Feuil4").Shapes("Image 1").Duplicate
Sh.CopyPicture

With Worksheets("Feuil2")
.Activate
.Paste
With .Range("B5")
Selection.Top = .Top
Selection.Left = .Left
.Select
End With
End With
End If
'pour supprimer l'image originale
' Sh.Delete 'au besoin
Sheets(Nom).Select

End Sub
'----------------------------------


Salutations!




"fifigim" a écrit dans le message de news:
Merci pour la rapidité de la réponse !

Donc, en utilisant une liste de la boite à outil contrôle, comment, déjà,
rentrer les choix que je désire et donc, changer la police ?

Pour le fond de couleur de cellule, c'est super, ça marche très bien !

Pour les images, ça marche, mais... J'ai des images, dans une feuille B,
d'une taille déjà prévue pour rentrer pile dans une feuille A, disons 7 cm de
haut...je voudrai qu'elle reste de 7 cm de haut, quand elle arrive dans la
feuille A, puisque c'est prevu pour...
De plus, je voudrai d'en fonction (j'ai pas mal de SI...) de valeurs d'une
cellule "G30" et "K47" ou "F59", ce soit par exemple l' "image 25" qui
s'affiche.

Merci d'avance !






Bonjour fifigim,

| Je souhaitera savoir comment changer la police du texte d'une liste
| déroulante, j'ai créé cette dernière avec la barre d'outil "formulaire" ?

Impossible avec cette barre....utilise les contrôles de la barre d'outils Contrôle pour plus de latitude dans les propriétés des
contrôles

| De plus, je voudrai savoir comment remplir (en bleu, vert....) le fond d'une
| cellule en fonction d'une valeur (1,2,...) d'une autre cellule ?

Si tu as un nombre de conditions limitées à 3 + celle de "l'état normal" de la cellule, regarde la commande "Mise en forme
conditionnelle" du menu Format.

Dans la liste déroulante de la fenêtre à gauche, tu sélectionnes : La formule est :
et dans la boîte de saisie tu entres exemple : ¡=5
et à partir du bouton format de la fenêtre, tu détermines la couleur que prendra ta cellule lorsque A1 sera égale à 5.


| Aussi, et pour finir pour maintenant, comment faire apparaître une image,
| d'une feuille A, sur une feuille B en fonction d'une valeur d'une cellule ?

Voici un exemple comment déplacer une image d'une feuille à l'autre
dans une cellule bien précise de la feuille

'--------------------------------------
Sub Image()

Dim Sh As Shape, Nom As String
Nom = ActiveSheet.Name
Application.ScreenUpdating = False
Set Sh = Worksheets("Feuil4").Shapes("Image 1").Duplicate
Sh.CopyPicture

With Worksheets("Feuil2")
.Activate
.Paste
With .Range("B5")
Selection.Top = .Top
Selection.Left = .Left
Selection.Height = .Height
Selection.Width = .Width
.Select
End With
End With
'pour supprimer l'image originale
' Sh.Delete 'au besoin
Sheets(Nom).Select

End Sub
'--------------------------------------


Salutations!


"fifigim" a écrit dans le message de news:

Bonjour,

Je souhaitera savoir comment changer la police du texte d'une liste
déroulante, j'ai créé cette dernière avec la barre d'outil "formulaire" ?

De plus, je voudrai savoir comment remplir (en bleu, vert....) le fond d'une
cellule en fonction d'une valeur (1,2,...) d'une autre cellule ?

Aussi, et pour finir pour maintenant, comment faire apparaître une image,
d'une feuille A, sur une feuille B en fonction d'une valeur d'une cellule ?

Merci d'avance !







Avatar
fifigim
Bonjour, et encore merci pour toutes ces explications.

Donc, pour être plus précis, je veux, que si les cellule L13=1 et L43=1 et
L47=2, s'affiche une 'image 45' dans la cellule C27, et que cette image reste
de 7 cm de haut, et non juste la taille de la "petite" cellule C27...
Sachant que les cellules sont dans une feuille, et les images dans plusieurs
autres feuilles. En effet, les cellules devraient piloter telle ou telle
image dans telle ou telle feuille... Mais ça à la limite, on verra plus
tard...

Merci !





Bonjour fifigim,

| Je souhaitera savoir comment changer la police du texte d'une liste
| déroulante, j'ai créé cette dernière avec la barre d'outil "formulaire" ?

Impossible avec cette barre....utilise les contrôles de la barre d'outils Contrôle pour plus de latitude dans les propriétés des
contrôles

| De plus, je voudrai savoir comment remplir (en bleu, vert....) le fond d'une
| cellule en fonction d'une valeur (1,2,...) d'une autre cellule ?

Si tu as un nombre de conditions limitées à 3 + celle de "l'état normal" de la cellule, regarde la commande "Mise en forme
conditionnelle" du menu Format.

Dans la liste déroulante de la fenêtre à gauche, tu sélectionnes : La formule est :
et dans la boîte de saisie tu entres exemple : ¡=5
et à partir du bouton format de la fenêtre, tu détermines la couleur que prendra ta cellule lorsque A1 sera égale à 5.


| Aussi, et pour finir pour maintenant, comment faire apparaître une image,
| d'une feuille A, sur une feuille B en fonction d'une valeur d'une cellule ?

Voici un exemple comment déplacer une image d'une feuille à l'autre
dans une cellule bien précise de la feuille

'--------------------------------------
Sub Image()

Dim Sh As Shape, Nom As String
Nom = ActiveSheet.Name
Application.ScreenUpdating = False
Set Sh = Worksheets("Feuil4").Shapes("Image 1").Duplicate
Sh.CopyPicture

With Worksheets("Feuil2")
.Activate
.Paste
With .Range("B5")
Selection.Top = .Top
Selection.Left = .Left
Selection.Height = .Height
Selection.Width = .Width
.Select
End With
End With
'pour supprimer l'image originale
' Sh.Delete 'au besoin
Sheets(Nom).Select

End Sub
'--------------------------------------


Salutations!


"fifigim" a écrit dans le message de news:
Bonjour,

Je souhaitera savoir comment changer la police du texte d'une liste
déroulante, j'ai créé cette dernière avec la barre d'outil "formulaire" ?

De plus, je voudrai savoir comment remplir (en bleu, vert....) le fond d'une
cellule en fonction d'une valeur (1,2,...) d'une autre cellule ?

Aussi, et pour finir pour maintenant, comment faire apparaître une image,
d'une feuille A, sur une feuille B en fonction d'une valeur d'une cellule ?

Merci d'avance !