Extension de formule de 3 colonnes à 8 colonnes avec espace

Bonjour à tous

Je souhaiterai modifier la formule actuelle pour passer de 3 colonnes à 8 colonnes en gardant les même espaces

Merci pour votre aide

Voir fichier ci joint

Salut Abdellatif et le forum

Je souhaiterai modifier la formule actuelle pour passer de 3 colonnes à 8 colonnes en gardant les même espaces

On n'est ni utilisateur de ton fichier, ni télépathe !

Je suppose que c'est dans la boucle de la macro, et il suffira vraisemblablement de modifier une ligne

Range("B" & i & ":D" & i).Copy Cells(lg, 6)

copier(.copy) les cellules de Bi:Di à partir de la cellule F ligne lg. Ce qui donne

Range("J" & i & ":Q" & i).Copy Cells(lg, "S")

copier les cellules de J à Q à partir de S. Comme on ne touche ni à i, ni à lg, les demandes originales seront respectées.

Petite remarque : plus on est dans l'imprécision, plus Murphy risque de s'amuser.

A+

Bonsoir et merci pour ta réponse

Si tu ouvres à nouveau mon fichier, vas sur onglet outils et puis Macro, tu trouveras qu'il y avait une boucle Macro.

Je l'ai modifiée selon ta proposition et ça ne marche que sur les deux premières lignes seulement.

Peux tu intervenir directement sur la boucle dans le fichier

J'apprécie ton intervention et merci d'avance

Salut le forum

Essaye ceci

Sub test()
Dim Lg As Long, i As Long

Lg = 12
 For i = 12 To 250
    Range("B" & i).Resize(1, 3).Copy Cells(Lg, "F")
    Range("J" & i).Resize(1, 8).Copy Cells(Lg, "S")
    Lg = Lg + 5
 Next i

End Sub

Mytå

Bonjour,

ça n'a pas marché.

Pour faciliter l'opération, je préfère qu'on supprime le tableau à 3 colonnes et qu'on essaye sur celui de 8

Si possible, modifies directement mon fichier et fais l'essai avec le bouton "score"

Merci beaucoup

Re le forum

Commence par copier les codes que l'on te fourni, dans ton fichier, avant de dire que ça fonctionne pas.

Va dans VBA (Alt + F11) double clique à gauche sur Module1 et remplace ton code par celui fourni plus haut.

Mytå

Bonjour Myta,

Enfin ça marche

C'est super et Merci beaucoup

Dans le même sujet, je souhaiterai avoir deux fichiers séparés. L'un avec 3 colonnes + bouton "Scores" et l'autre avec 8 colonnes + bouton "Scores"

J'apprécie ton aide

Ci joint fichier modifié

Re le forum

Pour 3 Colonnes

Sub test()
Dim Lg As Long, i As Long

Lg = 12
 For i = 12 To 250
    Range("B" & i).Resize(1, 3).Copy Cells(Lg, "F")
    Lg = Lg + 5
 Next i

End Sub

Pour 8 Colonnes

Sub test()
Dim Lg As Long, i As Long

Lg = 12
 For i = 12 To 250
    Range("J" & i).Resize(1, 8).Copy Cells(Lg, "S")
    Lg = Lg + 5
 Next i

End Sub

Mytå

Bonjour

Merci beaucoup pour les deux tableaux

Ca maaaaarche