780 résultats trouvés

par Game Over
26 janvier 2019, 21:25
Forum : Excel - VBA
Sujet : alerte fin de mois
Réponses : 9
Vues : 149

Re: alerte fin de mois

Salut, essaye ça : colle le dans "ThisWorkbook" et sélectionne Workbook et BeforeClose Private Sub Workbook_BeforeClose(Cancel As Boolean) If Month(Date) <> Month(Date + 1) Then MsgBox "alerte" End If End Sub A la fermeture du fichier, si tu es au dernier jour du mois, une alerte apparaitra. Pour te...
par Game Over
26 janvier 2019, 20:57
Forum : Excel - VBA
Sujet : Incrémenter une numérotation
Réponses : 5
Vues : 135

Re: Incrémenter une numérotation

Bonjour,

une solution en VBA, même si j'ai l'impression que tu attendais plutôt une proposition avec une formule.
La macro met automatiquement à jour les informations de la colonne A à l'ouverture du classeur.
par Game Over
26 janvier 2019, 18:56
Forum : Excel - VBA
Sujet : Remplacer mots dans une chaîne de caractère
Réponses : 9
Vues : 123

Re: Remplacer mots dans une chaîne de caractère

@Steelson T'inquiète, je ne sais toujours pas faire de NB.SI.ENS ! A vrai dire, je suis récalcitrant ... c'est quoi NB.SI.ENS ? :oops: c'est pareil, je suis récalcitrant à mettre les mains de le cambouis, s'agissant des formules @Clem7640 J'ai voulu remplacer ActiveCell par A1 mais cela ne fonctionn...
par Game Over
26 janvier 2019, 18:10
Forum : Excel - VBA
Sujet : Remplacer mots dans une chaîne de caractère
Réponses : 9
Vues : 123

Re: Remplacer mots dans une chaîne de caractère

Tu peux faire ça comme ça, par exemple :
sélectionne la cellule de référence et lance ta macro
Sub test()
    MsgBox "." & Mid(ActiveCell, InStr(ActiveCell, "arbre"))
End Sub
le code est à adapter à tes besoins, bien sur.
par Game Over
26 janvier 2019, 17:33
Forum : Excel - VBA
Sujet : Remplacer mots dans une chaîne de caractère
Réponses : 9
Vues : 123

Re: Remplacer mots dans une chaîne de caractère

Salut à toi, grand chef :
bon, tu me rassures; je vois que je suis pas si naze que ça avec les formules, finalement.
(Mais je suis toujours pas foutu de faire un someproduit :bof: )
par Game Over
26 janvier 2019, 17:23
Forum : Excel - VBA
Sujet : Remplacer mots dans une chaîne de caractère
Réponses : 9
Vues : 123

Re: Remplacer mots dans une chaîne de caractère

Salut,

je suis pas un pro des formules, donc il y a peut-être plus simple; moi, avec une version anglaise, je fais ça de la façon suivante :
="."&MID(A1;FIND("arbre";A1;1);LEN(A1)-FIND("arbre";A1;1)+1)
par Game Over
26 janvier 2019, 16:43
Forum : Excel - VBA
Sujet : Tirage d'une liste de noms
Réponses : 6
Vues : 112

Re: Tirage d'une liste de noms

Salut,

une autre proposition.
et je confirme que la solution de Jean Eric fonctionne parfaitement.
par Game Over
26 janvier 2019, 15:11
Forum : Excel - VBA
Sujet : retrouver une valeur dans une base de donnée
Réponses : 8
Vues : 140

Re: retrouver une valeur dans une base de donnée

Salut, une proposition en vba, si j'ai bien compris la demande. Ne pas oublier de cocher "Microsoft Scripting Runtime" dans l'onglet "Tools", option "References" de l'éditeur VBA Sub try() Application.ScreenUpdating = False Dim dico As Variant Set dico = CreateObject("scripting.dictionary") Dim aa A...
par Game Over
26 janvier 2019, 11:50
Forum : Excel - VBA
Sujet : countccolor sous condition
Réponses : 14
Vues : 319

Re: countccolor sous condition

Salut, essaye ça Function CountCcolor(range_data As Range, criteria As Range) As Long Dim datax As Range Dim xcolor As Long xcolor = criteria.Interior.ColorIndex For Each r In range_data lg = r.Row If r.Interior.ColorIndex = xcolor Then If Year(Cells(lg, 1)) = Year(Cells(9, 1)) Then CountCcolor = Co...
par Game Over
1 décembre 2017, 23:53
Forum : Excel - VBA
Sujet : Colorer cellules avec double-Clic
Réponses : 7
Vues : 277

Re: Colorer cellules avec double-Clic

Salut, change ton code comme ceci : If Target.Interior.Color <> 16777215 Then Target.Interior.Color = 16777215 ElseIf UCase(Right(Target.Value, 1)) = "F" Then Target.Interior.Color = RGB(255, 204, 153) ElseIf UCase(Right(Target.Value, 1)) = "M" Then Target.Interior.Color = RGB(255, 255, 0) End If ma...