Boucle sur code

Bonjour a tous,

je n ai pas bien compris les boucles et je pense que je pourrais en faire une sur ce code, que je dois répéter sur plusieurs onglets, et sur plusieurs colonne si qqun peux me donner un coup de main ca serais gentil. Merci

If Not IsEmpty(Range("C3")) Then
 ' => SI condition validée ALORS
   'on execute la copie

    Columns("C:C").Select '1
    Selection.AutoFilter
    Selection.AutoFilter Field:=1, Criteria1:="<>"
    Range("A1:C79").Select
    Selection.Copy
    Sheets("feuil2").Select
    Range("A1").Select
    ActiveSheet.Paste
    Sheets("210").Select
    Application.CutCopyMode = False
    Selection.AutoFilter
    Sheets("210").Select
    Columns("C:C").Select
    Selection.Delete Shift:=xlToLeft

 Else ' => SINON
   'Instructions si faux
'on ne fait rien
End If

  If Not IsEmpty(Range("C3")) Then
 ' => SI condition validée ALORS
   'on execute la copie

    Columns("C:C").Select '2
    Selection.AutoFilter
    Selection.AutoFilter Field:=1, Criteria1:="<>"
    Range("A2:C79").Select
    Selection.Copy
    Sheets("feuil2").Select
    Range("D2").Select
    ActiveSheet.Paste
    Sheets("210").Select
    Application.CutCopyMode = False
    Selection.AutoFilter
    Sheets("210").Select
    Columns("C:C").Select
    Selection.Delete Shift:=xlToLeft

Else ' => SINON
'Instructions si faux
'on ne fait rien
End If

 If Not IsEmpty(Range("C3")) Then
 ' => SI condition validée ALORS
   'on execute la copie

    Columns("C:C").Select '3
    Selection.AutoFilter
    Selection.AutoFilter Field:=1, Criteria1:="<>"
    Range("A2:C79").Select
    Selection.Copy
    Sheets("feuil2").Select
    Range("G2").Select
    ActiveSheet.Paste
    Sheets("210").Select
    Application.CutCopyMode = False
    Selection.AutoFilter
    Sheets("210").Select
    Columns("C:C").Select
    Selection.Delete Shift:=xlToLeft

Else ' => SINON
   'Instructions si faux
'on ne fait rien
End If

Bonsoir,

Il faudrait déjà commencer par réécrire tout ça en supprimant tous les Select, Selection et autres CutCopyMode, ça réduira déjà des 2/3 ou des 3/4, expliquer ensuite pourquoi tu filtres mais copies et colles tout, visible ou non visible, et dire quel est l'objectif plus précisément (ou mettre un classeur modèle, ce qui serait plus précis !)

Salut svbb,

tu ne m'as toujours pas répondu concernant ta demande précédente quant au traitement des données de 210...

Tu gagnerais beaucoup de temps!

Quant à ce code ci... houlaaa... Explique-nous avec un fichier (le 210, encore) ce que tu veux faire!

A+

Salut Curulis !

tu ne m'as toujours pas répondu concernant ta demande précédente quant au traitement des données de 210...

J'ai vu ça de loin ! Si la source est la même, il faut s'approvisionner, on est pas sorti...

je vais laisser le code comme ca tant pis lol je ne sais pas mieux expliquer que ce que j ai deja fait (malheureusement) @MFerrand j aimerais pourtant cela m aurais fait gagner du temps j avance doucement sur ce que je voulais faire et je cloturerais ma discution quand j y serais arriver ainsi vous verez peux etre ou je voulais en venir merci quand meme

svbb,

je t'ai déjà dit 1000 fois que la première partie du calcul ne posait aucune problème!

C'est le traitement de ces données qui DOIT être expliqué pour que ça avance!

Sans meilleure bonne volonté de ta part, tu devras te débrouiller vraiment tout seul!

le souci c est que je ne vois pas comment expliquer mieux... mais je suis tout près du but cela m apprend donc pas probleme je sais que ce n est pas de la mauvaise volonté de votre part ...