3711 résultats trouvés

par curulis57
Hier, 20:48
Forum : Excel - VBA
Sujet : Tableau aleatoire automatique
Réponses : 38
Vues : 620

Re: Tableau aleatoire automatique

Salut Sasha,

j'ai "bêtement" inséré deux contrôles 'Image' ActiveX de part et d'autre du tableau... rien de sorcier...

:lol:
A+
par curulis57
Hier, 15:59
Forum : Excel - VBA
Sujet : Ouverture fenetre code acces
Réponses : 7
Vues : 100

Re: Ouverture fenetre code acces

Allons-y pour "shuk20"... Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean) ' Cancel = True Do sMsg = Application.InputBox("Veuillez entrer le code !", "Code") Loop Until sMsg <> "" Or sMsg = "Faux" MsgBox IIf(sMsg = "Faux", "Procédure interrompue par l'utilisateur !"...
par curulis57
Hier, 15:17
Forum : Excel - VBA
Sujet : Tableau aleatoire automatique
Réponses : 38
Vues : 620

Re: Tableau aleatoire automatique

Salut Sasha,

figé ??
par curulis57
Hier, 15:15
Forum : Excel - VBA
Sujet : Ouverture fenetre code acces
Réponses : 7
Vues : 100

Re: Ouverture fenetre code acces

Sans rire, pepinoo06, sommes-nous devins ? ::o
Comment je peux le deviner, ton code, mmmmh ? :...:

8-)
A+
par curulis57
Hier, 12:24
Forum : Excel - VBA
Sujet : Modifier la police de caractères des articles
Réponses : 6
Vues : 56

Re: Modifier la police de caractères des articles

Salut WebNet,

quelque chose comme ça ?
Private Sub Worksheet_Change(ByVal Target As Range)
'
If UBound(Split(Target, " ")) > 0 Then Target.Characters(1, Len(Split(Target, " ")(0))).Font.Size = 11
'
End Sub
8-)
A+
par curulis57
Hier, 11:57
Forum : Excel - VBA
Sujet : Compléter une liste déroulante
Réponses : 2
Vues : 33

Re: Compléter une liste déroulante

Salut comme ceci, sans doute... Private Sub Worksheet_Change(ByVal Target As Range) ' Dim iRow%, iOK%, sItem$ ' If Not Intersect(Target, Range("B6:B" & Range("A" & Rows.Count).End(xlUp).Row)) Is Nothing Then Target.Validation.Delete If Target <> "" Then iOK = 10 sItem = Target.Value iRow = Range("G"...
par curulis57
17 février 2020, 23:09
Forum : Excel - VBA
Sujet : Creer une liste sans passer par la boite de dialogue
Réponses : 1
Vues : 41

Re: Creer une liste sans passer par la boite de dialogue

Salut markho, je te laisse deviner où tu dois d'abord cliquer... :lol: Private Sub Worksheet_Change(ByVal Target As Range) ' If Not Intersect(Target, Range("C1")) Is Nothing Then Range("B:B").Value = "" With Worksheets(CStr(Range("C1").Value)) iRow = .Range("A" & Rows.Count).End(xlUp).Row Range("B1"...
par curulis57
17 février 2020, 22:33
Forum : Excel - VBA
Sujet : Mise en forme exportation
Réponses : 1
Vues : 45

Re: Mise en forme exportation

Salut JESSY9468,

j'ai bien une idée de ce que tu attends mais pourrais-tu, au moins, développer complètement les lignes de ton fichier-exemple à l'image de ce que tu souhaites ?

8-)
A+
par curulis57
17 février 2020, 22:29
Forum : Excel - VBA
Sujet : Modifier format bouton macro activex
Réponses : 3
Vues : 40

Re: Modifier format bouton macro activex

Déso sa3d88,

je serais bien en peine de te dire quoi faire avec les contrôles de formulaire... que je n'ai jamais utilisés et que je ne compte pas utiliser un jour !!
Faut espérer qu'un décorateur passe par ici... :lole:

8-)
A+
par curulis57
17 février 2020, 21:54
Forum : Excel - VBA
Sujet : Formule si et ou
Réponses : 3
Vues : 34

Re: Formule si et ou

Salut judoka0209,
=SI(ET(OU(C1="lun";C1="mar";C1="mer";C1="jeu";C1="ven");C4="M");6;0)
ou
=SI(ET(C1<>"dim";C1<>"sam";C4="M");6;0)
ou... celle de Jean-Eric (°v°)° qui est la meilleure !

8-)
A+