boucle avec colonnes !

[Flop]

Bonjour à tous..

tout d'abord merci à bruno, pierre jean.. et à tous les autres car j'ai réussi a faire cette fois une macro avec boucle tout seul et qui marche !! elle est surement pas belle, mais ca marche ! voici le code :

[COLOR="Red"]x = 22[/COLOR] 'déclaration de la variable

For sh = 1 To 3
    For r = 1 To 2
        Sheets("ecole" & " H" & sh).Visible = True
        Sheets("ecole" & " H" & sh).Select
        Range("E10:K10").Select
        ActiveCell.FormulaR1C1 = "=""ecole test  : ""&Accueil!R[[COLOR="Red"]x[/COLOR]]C[-1]"
        [COLOR="Red"]x = x + 1[/COLOR] ' incrémente la variable
    Next r
Next sh

😀😀😀


voici mon autre problème, je tiens à préciser que mon code actuel marche mais fais plusieurs pages car très redondant.; je cherche à l'améliorer et surtout à le rendre plus court !!

bcq plus d'explication sur le fichier joint, car c'est difficile à expliquer de facon synthetique !

si j'ai pas été clair, faites moi signe ! 🙄

ce qu'il faut retenir, c'est :

j'ai mis des couleurs dans chaque colonne de la feuille 2 et je veux copier les données de ces colonnes dans la feuille sur le n° de colonne qui correspond à la couleur.. 😱

merci d'avance de votre aide..

 

[Flop]

Re : boucle avec colonnes !

edit - plus rien à dire ! 🙂

 

[Flop]

Re : boucle avec colonnes !

personne pour me filer un ptit cp de pouce ?

 

[Compte Supprimé 979]

Re : boucle avec colonnes !

Salut Flop,

Pourquoi passer par une feuille temp !?

Sub copie()
Dim NbLig As Long
NbLig = 265  ' Nombre de lignes à copier
'----- IDE DE MACRO 1 pour la copie de NOTE 1 -------------
'copie le nom des ecoles
  Sheets("feuil1").Range("B1:B" & 1 + NbLig).Value = Sheets("feuil2").Range("B5:B" & 5 + NbLig).Value
'copie les notes 1
  Sheets("feuil1").Range("C1:C" & 1 + NbLig).Value = Sheets("feuil2").Range("C5:C" & 5 + NbLig).Value
'copie l'acad
  Sheets("feuil1").Range("D1:D" & 1 + NbLig).Value = Sheets("feuil2").Range("A5:A" & 5 + NbLig).Value
End Sub

Essaye ça 😉

A+

 

[Flop]

Re : boucle avec colonnes !

Salut Flop,

Pourquoi passer par une feuille temp !?

Je me suis obliger à passer par une feuille temp, car dans la macro original, j'ai deux macro qui agissent avant la copie et qui permette de :

- supprimer les lignes vides
- trier par ordre décroissant,

et sans passer par une feuille temp je sais pas faire :!

Est ce que je suis clair dans mes propos ?