bonjour à tous,
j'ai créer plusieurs TCD sur la même feuille de calcul avec des lignes vide entre les tableau pour éviter une erreur.
Mais 20 ligne vide me suffise actuellement mais dans 1 mois il en faudra peut être 30.
j'ai donc essayé de réfléchir a réaliser un code en vba pour ajouter 10 lignes vide si une erreur survient.
je n'arrive pas à faire changer la variable h si il arrive une erreur.
je n'arrive pas à faire en sorte que le message d'erreur prennent la valeur non
joins un fichier exemple purger
je suscite votre aide et je suis sur que ce défit va en passionner plus d'un.
et aider des internaute dans le futur.
merci d'avance à vous
j'ai créer plusieurs TCD sur la même feuille de calcul avec des lignes vide entre les tableau pour éviter une erreur.
Mais 20 ligne vide me suffise actuellement mais dans 1 mois il en faudra peut être 30.
j'ai donc essayé de réfléchir a réaliser un code en vba pour ajouter 10 lignes vide si une erreur survient.
Code:
Sub Test()
Dim h As Boolean
Dim i As Long
h = False
'If Error Then h = True "essai de ligne de code non concluant"
Do
ActiveSheet.PivotTables("Tableau croisé dynamique3").PivotCache.Refresh
ActiveWindow.SmallScroll Down:=30 '"le message d'alerte apparaît quand même" ligne créer par l'enregistreur
'While h = True "ne fonctionne pas"
For i = 1 To 10
Dim b As Long
b = Range("heure_chantier").Row
Rows(b).Select
Selection.Insert Shift:=xlDown, CopyOrigin:=xlFormatFromLeftOrAbove
ActiveWindow.SmallScroll Down:=30
h = False
Next
Loop While h = False
End Subje n'arrive pas à faire changer la variable h si il arrive une erreur.
je n'arrive pas à faire en sorte que le message d'erreur prennent la valeur non
joins un fichier exemple purger
je suscite votre aide et je suis sur que ce défit va en passionner plus d'un.
et aider des internaute dans le futur.
merci d'avance à vous