Code qui tourne en boucle

Bonjour,

J'ai le code suivant qui tourne en boucle même si mes données sont très limités !!

Pouvez vous m'aider à l'améliorer svp

d'avance, merci

Dim i As Integer

i = 1

While curRange.Cells(i, 1).Value <> vbNullString

Dim sheetName As String

sheetName = curRange.Cells(i, 1).Value

If Not SheetExists(sheetName) Then

ThisWorkbook.Sheets("TAB_CTR_DSN").Copy After:=ThisWorkbook.Sheets(ThisWorkbook.Sheets.Count)

ThisWorkbook.Sheets(ThisWorkbook.Sheets.Count).Name = sheetName

End If

Range("C13").Select

ActiveSheet.PivotTables("Tableau croisé dynamique4").PivotFields("Code Société" _

).ClearAllFilters

On Error Resume Next

ActiveSheet.PivotTables("Tableau croisé dynamique4").PivotFields("Code Société" _

).CurrentPage = ActiveWorkbook.ActiveSheet.Name

On Error Resume Next

ActiveSheet.PivotTables("Tableau croisé dynamique4").PivotCache.Refresh

Columns("C:C").EntireColumn.AutoFit

Columns("B:B").EntireColumn.AutoFit

Rows("9:10").Select

Selection.EntireRow.Hidden = True

Range("c4").Select

i = i + 1

Wend

Bonsoir,

While curRange.Cells(i, 1).Value <> vbNullString

Que objet signifie curRange ? Joins si possible le fichier qui va avec qui nous permet de tester.

Raja a écrit :

Bonsoir,

While curRange.Cells(i, 1).Value <> vbNullString

Que objet signifie curRange ? Joins si possible le fichier qui va avec qui nous permet de tester.

Hello tout le monde,

Une erreur de copie de code dans le post ? Ta pas essayer de faire : Range("A1").CurrentRegion.Cells(i, 1).Value

Moi j'ai l'impression, qu'étant donner que ta boucle veut dire :

Tant que valeur cellule A1 n'est pas nulle, boucle => Soit une boucle infinie, car après rien ne va l'arrêter, puisque A1, à aucun moment prend une valeur, ni ne prévoit d'exit de boucle pour arrêter la macro. ^^

Bonjour,

Merci pour vos retours et désolé pour mon retard puisque j'étais en congé

Veuillez trouver ci-joint un fichier test ou j'ai deux problèmes :

• La macro 'Actualiser_classeur' ne fonctionne pas dès le 1er coup ==> Je dois cliquer 2 ou 3 fois pour la faire fonctionner (je ne comprends pas la raison) !!
• La macro 'Ajout_Feuilles' : Tourne plusieurs fois (en boucle) surtout lorsque j'ai des centaines de lignes dans l'onglet 'Fichier source' !!

Je vous remercie d'avance si vous pouvez m'aider

A+