VBA pour remplacer formule Excel ?

Le 02/08/2017 à 00:01

Bonjour le forum,

retraite8 M'as gentiment réglé un transfert de données sur mon classeur.

Mais je voulais que ce soit en VBA, et je viens de me rendre compte que c'était avec des formules Excel...

Il faudrait que les données des colonnes A et B de la feuille "Tirages Equipes" soit transposées dans la feuille "Partie 1" colonnes A et B et en colonnes E et F.

quelqu'un peut-il faire quelque chose pour moi ?

Merci a tous ceux qui voudront bien se pencher sur mon problème...

Mon classeur joint:

11petouliers-travail.xlsm (553.78 Ko)

Le 02/08/2017 à 02:13

Bonjour atlonia, bonjour le forum,

C'est vrai, on a tricoté les doublettes et les triplettes, mais on n’a pas vbatisé les simplettes (j'espère qu'ils ne liront pas ceci )

Voici, c'est fait. J'ai dû retirer les cellules fusionnées (feuille "Parie 1") telles sur les autres feuilles (doub et trip).

Regarde si ça convient...

A+

Joseph

10atlonia-petouliers-travail.xlsm (557.38 Ko)

Le 02/08/2017 à 02:15

Bonjour atlonia,

Sub partie1()
Dim y As Integer, i As Integer, x As Integer, LastRw As Long

With Sheets("Partie 1")
LastRw = .Cells(Rows.Count, 1).End(xlUp).Row

 For i = 8 To LastRw Step 3
  For y = 2 To 6 Step 4
    .Cells(i, y).ClearContents
  Next
 Next

 For i = 8 To LastRw Step 3
  For y = 2 To 6 Step 4
  .Cells(i, y).Value = Sheets("Tirages Equipes").Cells(3 + x, 2).Value
  x = x + 1
  Next
 Next
End With
End Sub

edit: ce nouveau code est dans le Module02

et j'ai ajouté au à la macro TêteÀtête ( voir: Call partie1)

9atlonia-classeur-final-test-3.xlsm (127.25 Ko)

Le 02/08/2017 à 14:45

Merci infiniment retraite8 et archer,

Pour votre promptitude a répondre et votre efficacité...

Vos versions respectives fonctionnent parfaitement, je vais donc les garder pour exemple...!

Merci encore pour le savoir que vous mettez à notre disposition...

A+

Le 02/08/2017 à 16:25