Discussion :

[Theze]

Et bien, c'est pas gagné ! Tu as essayé comme Menhir () ta dit ?

Pour changer les espaces "intérieurs" en /, voir la fonction Replace().
Pour enlever les espaces avant et après, voir la fonction Trim().

si tu ne suis pas les conseils donnés, tu ne vas pas y arriver !
Un petit test pour que tu puisses voir :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
 
Sub Test()
 
    Dim Temp As String
    Dim Chaine
    Dim I As Integer
 
    Chaine = Array(" 05 10 2018 ", "05 10 2018", "'05 10 2018")
 
    For I = 0 To UBound(Chaine)
 
        'la fonction Trim() supprime les espaces parasites en début et fin de chaîne (1er élément)
        'la fonction Replace() remplace les espaces à l'intérieur de la chaîne par des slashs
        Temp = Replace(Trim(Chaine(I)), " ", "/")
 
        'si la date n'est pas valide, problème
        If Not IsDate(Temp) Then MsgBox "Date non conforme !" Else MsgBox CDate(Temp)
 
    Next I
 
End Sub

[OBADJ]

C'est bon j'ai trouvé mon erreur ce n'était pas celle que Menhir avait annoncé !

En revanche, maintenant que cette colonne 17 est corrigé, pour l'ancienne macro sur les Décompte à émettre ou pas de Décompte, j'ai l'impression qu'il ne prends pas en considération ma colonne S avec les <15000.
Concernant l'ancienne macro décompte, j'ai un soucis maintenant après rectification de la colonne 17, j'ai l'impression qu'il reconnait pas le <15000 pour la colonne S.

Je te mets le fichier excel et il y a la macro dans VBA.
KOBD .xlsx
(74.83 Kio) Pas encore téléchargé

Je répète ma condition par sécurité même si je pense vous l'avez tous comprise :

En fait je veux que si la colonne M, N et Q sont vides et que dans la colonne H c'est égale à "001121" ou "001170" ou "002160" et que la colonne S soit <15 000 alors je mets en M " Pas de décompte" Sinon je mets "Décompte à émettre" mais en prenant toujours compte de la colonne Met N vide (pour le commentaire "Décompte à émettre", je ne veux pas qu'il remplace par tous me ancien commentaire que j'ai mis avant.).

Et sur mon fichier on voit bien quand on lance la macro, que dans quelque ligne sa marche et que d'autre il prend pas en compte la colonne S avec les <15000



Voici le fichier ci-joint avec la macro dans VBA !
Pièce jointe 442580Pièce jointe 442580KOBD .xlsm

[Menhir]

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

Mid(Temp, 3, 2)

Une nouvelle fois, je te conseille de compter sur tes doigts pour déterminer le bon numéro de position.

C'est bon j'ai trouver mon erreur ce n'était pas celle que Menhir avait annoncé !

Etant donné que le troisième caractère de ta chaîne est un espace, il est peut probable qu'il n'y ait pas d'erreur là où je l'ai signalé...

[OBADJ]

Etant donné que le troisième caractère de ta chaîne est un espace, il est peut probable qu'il n'y ait pas d'erreur là où je l'ai signalé...

Par compte il me reste des cellulles "vides" avec des espaces comment je pourrais rajouter cela dans mon codes pour les supprimer dans les cellules "vide"

[lissory]

Bonjour à toutes et tous,

Pourriez-vous m'aider sur le probleme suivant:

J'ai mis en place une fonction de compte du nmbre de case sur base de la couleur de celle-ci et j'aimerais mnt intégrer une conditions de realisation pour splitter mon resultat en fonction de la valeur de ma colonne "G" pouvant etre 2 ou 7

Mais je ne parviens pas a comprendre comment intégrer cette condition dans mon code.

Voici la code de la fonction créé:

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
 
Function Color_Cell_Count(ColorCell As Range, DataRange As Range)
 
Dim Data_Range As Range
Dim Cell_Color As Long
 
 
Cell_Color = ColorCell.Interior.ColorIndex
 
 
For Each Data_Range In DataRange
 
If Data_Range.Interior.ColorIndex = Cell_Color Then
Color_Cell_Count = Color_Cell_Count + 1
End If
 
Next Data_Range
 
End Function

D'avance merci,

[Menhir]

Premièrement, si tu veux poser une nouvelle question, ouvre ta propre discussion.

Deuxièmement, aucune fonction comptant les couleurs n'est fiable.

[lissory]

Merci de votre retour, desolé pour l'erreur de post, je vais le recreer dans ce cas en ouvrant le sujet.