Recopier une cellule a 1 condition avec 3 probabilites possible

Bonjour à tous,

je sollicite votre aide car je n'arrive pas à trouver une formule pour recopier 1 cellule à 1 condition avec 3 probabilités.

J'ai réussi à le faire pour 2 probabilités mais impossible pour la 3eme probabilité!

Je souhaite recopier le Cxxx0000 en face du cpte 707

Sur la même colonne il y a des comptes qui commencent par 707, 445 et Cxxx0000

707

445

Cxxx0000

mais par fois il y a

707

707

445

Cxxx0000

et pour finir

707

707

707

445

Cxxx0000

en PJ, il y a le fichier complet.

Mon but est de faire un TCD avec les différents 707 par clients pour mon reporting.

Un grand merci d'avance pour vos solutions.

Bonne soirée

Clé

Bonjour Clé,

à tester,

Sub test()
n = 5   'première ligne
derniereLigne = Cells(Rows.Count, "C").End(xlUp).Row
For i = n To derniereLigne
    If IsEmpty(Cells(i, "C")) Then
        n = i + 1
    Else
        If Not IsNumeric(Cells(i, "C")) Then
        Range("B" & n & ":B" & i).Value = Cells(i, "C").Value
        Cells(i, "C").ClearContents
        n = i
        End If
    End If
Next i
End Sub

Bonjour I20100,

Merci beaucoup, ta proposition fonctionne parfaitement, sauf que j'ai oublié de mentionner un détail important.( mon exemple d'extraction n'était pas assez long)

Lors de mon extraction sous Excel, au moment du changement de page, une ligne vide est crée, et parfois en plein milieu d'une facture, et du coup cela fausse bien évidemment le résultat.

Pour solutionner cette anomalie, je ne vois qu'une solution, retirer toutes les lignes vides.

Est-ce possible de rajouter cette macro, et coup j'imagine réajuster la macro test.

En abusant encore un peu, c'est long d'ajouter le bouton "effacer la macro"?

Le fichier V2 est en PJ.

Mille merci d'avance

Clé

re,

est ce que cela change le résultat du tcd ?

Re,

Oups, je suis confuse, effectivement c'est neutre.

Est-ce possible de rajouter le bouton "Effacer la macro" STP?

Clé

cle1924 a écrit :

Est-ce possible de rajouter le bouton "Effacer la macro" STP?

je ne comprend pas ?

Bonjour Isabelle,

En fait, je veux dire une autre macro de remise à zéro des données générées, car tous les mois, je fais un enregistré sous, et j'empile ma nouvelle source.

Là, je viens de monter mes reportings de janvier à avril, et je détecte une anomalie, si la donnée de la macro est restée renseigné du mois dernier, elle ne s'efface pas, et du coup tout est déséquilibré.

Le fichier est en Pièce.

En espérant avoir été claire.

Merci d'avance pour ton aide.

Très bonne journée

Clé

re,

c'est le tcd que tu veux effacer ou les données de la source ?

Bonjour,

Uniquement les données de la source.

Bonne fin de journée

Clé

re,

à tester,

Sub Efface_DonnéesSource()
derniereLigne = Sheets("Feuil1").Cells(Rows.Count, "B").End(xlUp).Row
Sheets("Feuil1").Range("B5:J" & derniereLigne).ClearContents
Sheets("TCD").PivotTables(1).PivotCache.Refresh
End Sub

Bonjour Isabelle,

C'est nickel

Merci beaucoup et bonne continuation

Clé