Discussion :

[sharon21]

Bonjour,

Je suis nouvelle sur le forum et en programmation et je rencontre un soucis dans mon code et j'ai beau chercher sur le forum je n'ai pas trouvé la réponse à ma question.
J'ai fais une macro pour calculer le chiffre d'affaire que me rapporterait les nouveaux clients.
Dans mon fichier excel, j'ai une première feuille "matrice générale" avec les résultats de mes calculs, et la feuille "Feuil2" qui contient toutes mes données.
pour chaque nouveau client, le chiffre d'affaire est donné en colonne 9. Dans la colonne 19, nous avons 3 catégories "nouveaux clients 2015", "clients existants", "clients réactivé en 2015"
Sachant que nous avons changé d'année, mon prochain document contiendra les catégories suivantes "nouveaux clients 2016", "clients existants", "clients réactivé en 2016".
J'aimerais que mon code soit permanent et que les années ne soient pas un frein à mon code. J'ai tenté avec la fonction "like" et "left" mais sans succès. Comment puis je faire pour que mon code recherche le début de la valeur de ma cellule c'est à dire "nouveaux clients" sans tenir compte de l'année?

Code :

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

1
2
3
4
5
6
7
8
For ligne = 5 To lastrow
Do While Cells(ligne, 19) = ("Nouveaux Clients 2015")
            Sum5 = Sum5 + Cells(ligne, 9).Value
      ligne = ligne + 1
    Loop
   'je range tes résultats dans un autre onglet
Worksheets("matrice générale").Range("E13").Value = Sum5
Next ligne

merci d'avance pour votre aide.

[Sebphyto]

Salut Sharon,

Penses à mettre ton code le prochaine fois

Essai avec ça

Code :

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

1
2
3
4
5
6
7
8
For ligne = 5 To lastrow
 Do While Cells(ligne, 19) Like "*Nouveaux Clients*" '= ("Nouveaux Clients 2015")
 Sum5 = Sum5 + Cells(ligne, 9).Value
 ligne = ligne + 1
 Loop
 'je range tes résultats dans un autre onglet
 Worksheets("matrice générale").Range("E13").Value = Sum5
 Next ligne

Seb

[sharon21]

Hello Seb,

Merci pour ta réponse mais le code que tu m'as donné ne fonctionne pas ^^' je crois que c'est parce que dans "Nouveaux clients 2015" il n'y a rien avant. Dans mes codes précédents j'avais réussi à utiliser "like" lorsque je recherchais une valeur au milieu d'autres valeur d'une cellule (j'espère que je suis compréhensible car je suis pas sure ex: "petits nouveaux clients 2015")
Qu'entends tu par "Penses à mettre ton code"? Etant nouvelle, je ne suis pas au fait. Comme ça, promis, je ferais une requête correcte la prochaine fois.

Merci encore pour ton aide.

Sharon

[Sebphyto]

Re,

Pour mettre ton code tu dois utiliser # et insérer ton code dedans!!!

je ne comprend pas:

je crois que c'est parce que dans "Nouveaux clients 2015" il n'y a rien avant

c'est à dire??

[sharon21]

Ah ok pour le code

je crois ça parce que j'ai un autre code ou je fais Like "*impact*" alors que dans la cellule la valeur est "CA 2014 impact 2015" et là ça fonctionne correctement, du coup j'imagine que ça doit être parce que la valeur recherchée "avec impact" est entre d'autres valeurs de la cellule.

[Sebphyto]

Re
Et de cette façon

Code :

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

Do While InStr(1, Cells(ligne, 4), "Nouveaux Clients") > 0

seb