4019 résultats trouvés

par Theze
7 novembre 2019, 12:30
Forum : Excel - VBA
Sujet : Code vba outlook
Réponses : 19
Vues : 282

Re: Code vba outlook

Attention, je viens de voir que la plage est définie qu'à partir de la ligne 4 alors qu'il faut la définir à partir de la ligne 3 donc, cette ligne de code : Set Plage = .Range(.Cells(4, 5), .Cells(.Rows.Count, 5).End(xlUp)) devient : Set Plage = .Range(.Cells(3, 5), .Cells(.Rows.Count, 5).End(xlUp)...
par Theze
7 novembre 2019, 07:17
Forum : Excel - VBA
Sujet : Aide pour comprendre 1 macro
Réponses : 15
Vues : 265

Re: Aide pour comprendre 1 macro

Bonjour, Sub matRisque() Dim test, risque, matRisque(1 To 4, 1 To 4) As String Dim lig As Long, col As Long With Sheets("BDD") test = .Cells(7, 1).Resize(.Cells(Rows.Count, "R").End(xlUp).Row - 6, 18).Value risque = .Cells(7, 18).Resize(UBound(test), 2).Value End With For lig = 1 To UBound(test) mat...
par Theze
7 novembre 2019, 06:58
Forum : Excel - VBA
Sujet : Supprimer un caractère spécial
Réponses : 12
Vues : 120

Re: Supprimer un caractère spécial

Bonjour, Tu as la fonction "EPURAGE()" pour virer ce genre de caractère : =EPURAGE(A2) Tu tires vers le bas, tu copies et collage spécial --> "Valeur" ou alors, la version VBA : Sub Test() Dim Plage As Range Dim Cel As Range With Worksheets("Feuil1"): Set Plage = .Range(.Cells(1, 1), .Cells(.Rows.Co...
par Theze
6 novembre 2019, 19:34
Forum : Excel - VBA
Sujet : Code vba outlook
Réponses : 19
Vues : 282

Re: Code vba outlook

Regardes avec ce code (à cette ligne If Cel.Value < (DateLimite + 30) Then '<--- ici ! ) : Sub Test() Dim Plage As Range Dim Cel As Range Dim DateLimite As Date Dim Texte As String Dim Texte1 As String Dim Texte2 As String Dim Texte3 As String With Worksheets("MED PB") Set Plage = .Range(.Cells(4, 5...
par Theze
6 novembre 2019, 07:37
Forum : Excel - VBA
Sujet : Code vba outlook
Réponses : 19
Vues : 282

Re: Code vba outlook

Bonjour,

Content de t'avoir aidé et que nous soyons arrivés au résultat escompté :wink:
par Theze
6 novembre 2019, 07:34
Forum : Excel - VBA
Sujet : Boucles erreur avec Vlookup et mid ?
Réponses : 11
Vues : 161

Re: Boucles erreur avec Vlookup et mid ?

Bonjour, Comme te le conseille fortement Eric (°v°)°, évites les fusions de cellules ! Voici le code retouché : Private Sub Worksheet_SelectionChange(ByVal Target As Range) Dim Plg As Range Dim mat As Integer Dim i As Integer Dim j As Integer Dim Valeur Set Plg = Sheets("Profs").Range("A1:F43") With...
par Theze
5 novembre 2019, 20:17
Forum : Excel - VBA
Sujet : Trier
Réponses : 5
Vues : 75

Re: Trier

BOnjour, Une autre piste par macro, hello Steelson (°v°)°, avec une feuille ajoutée nommée "Données triées" : Sub Test() Dim Fe As Worksheet Dim Dico As Object Dim Cle As Variant Dim Plage As Range Dim Cel As Range Dim T As Variant Dim Annee As Integer Dim I As Integer Dim J As Integer Set Dico = Cr...
par Theze
5 novembre 2019, 19:21
Forum : Excel - VBA
Sujet : Contrôle textbox pour interdire doublon
Réponses : 14
Vues : 239

Re: Contrôle textbox pour interdire doublon

Content de t'avoir aidé :wink:
par Theze
5 novembre 2019, 19:19
Forum : Excel - VBA
Sujet : Code vba outlook
Réponses : 19
Vues : 282

Re: Code vba outlook

Quand tu envois un message en html, il ne faut pas utiliser ".body" mais ".HTMLBody" donc, cette partie ci-dessous ne doit plus exister dans le code, c'est de là que vient le problème, il y a conflit : 'construit le message .body = "Bonjour," & _ Chr(13) & Chr(13) & _ "Les produits ci-dessous sont p...
par Theze
5 novembre 2019, 07:29
Forum : Excel - VBA
Sujet : Code vba outlook
Réponses : 19
Vues : 282

Re: Code vba outlook

Bonjour,

Je viens de faire le test sur mon autre PC perso et voilà ce que j'obtiens dans Outlook ce qui me semble être le résultat souhaité :
Message Outlook Mango.PNG
Message Outlook Mango.PNG (16.46 Kio) Vu 61 fois
Ce qui fais que je ne sais pas comment t'aider plus car le code fonctionne sur les trois PC à ma disposition :(