Ecrire sur deux feuilles en même temps

[maval]

Bonjour,

J'aimerai savoir si par macro on pouvais écrire sur 2 feuilles en même temps?

je rentre une liste de noms et N° d'équipe en feuille" Inscription" colonnes "C3😀200" j'aimerai rentrer les N° d'équipes et les deux noms sur la feuille "Classement" en même temps

ex: feuille Inscription : "C3 = 1, D3 =Guillaume, D4 = Benoit"
feuille Classement:" E3 = 1, F3 =Guillaume, G3 = Benoit"

D'avance merci à qui pourra m'aider.
Cordialement

Maval

 

[Paritec]

Re : Ecrire sur deux feuilles en même temps

Bonjour Maval le forum,
ton fichier en retour la liste se met à jour lorsque tu actives la feuille classement
a+
Papou😱

 

[Paritec]

Re : Ecrire sur deux feuilles en même temps

Re Maval le forum
une petite modification car il faut que le nombre de noms soit paire obligatoirement alors j'ai rajouté un contrôle
a+
papou😱

 

[job75]

Re : Ecrire sur deux feuilles en même temps

Bonjour maval, salut Papou 🙂

Une solution sans boucle avec SpecialCells :

Sub Transfert()
Dim tablo, r As Range
With Sheets("Inscription")
  tablo = .Range("C3", .[D65536].End(xlUp))
End With
Application.ScreenUpdating = False
With Sheets("Classement")
  .[E3:G65536].ClearContents
  .[E3:F3].Resize(UBound(tablo)) = tablo
  Set r = .[E3:E65536].SpecialCells(xlCellTypeBlanks)
  Intersect(r.EntireRow, .[F:F]).Copy .[G3]
  Intersect(r.EntireRow, .[E:F]).Delete xlUp
  '.Activate 'si nécessaire
End With
End Sub

La macro s'exécute quand on active la feuille Classement.

Mais on pourrait la lancer autrement, par un bouton par exemple.

Fichier joint.

Edit : s'il n'y a qu'un seul nom dans la liste la macro beugue sur SpecialCells.

Pour l'éviter ajouter On Error Resume Next avant cette ligne.

A+

 

[maval]

Re : Ecrire sur deux feuilles en même temps

Bonjour Papou,

Excellent, merci beaucoup, mais si je peut te demander serait-il pas possible au lieu de mettre un bouton pour activer la feuille faire une copie automatique bien sur si possible?

Bonne W.E et bonne Fêtes et merci encore

@+
Max

 

[job75]

Re : Ecrire sur deux feuilles en même temps

Re,

Tiens un truc intéressant, en décalant la dernière cellule en colonne D :

tablo = .Range("C3", .[D65536].End(xlUp)(2))

on évite tout problème si le nombre de noms est <2 :

Sub Transfert()
Dim tablo, r As Range
With Sheets("Inscription")
  tablo = .Range("C3", .[D65536].End(xlUp)(2))
End With
Application.ScreenUpdating = False
With Sheets("Classement")
  .[E3:G65536].ClearContents
  .[E3:F3].Resize(UBound(tablo)) = tablo
  Set r = .[E3:E65536].SpecialCells(xlCellTypeBlanks)
  Intersect(r.EntireRow, .[F:F]).Copy .[G3]
  Intersect(r.EntireRow, .[E:F]).Delete xlUp
  '.Activate 'si nécessaire
End With
End Sub

SpecialCells ne peut plus beuguer.

Fichier (2) à tester avec 1 ou 0 nom.

A+

 

[maval]

Re : Ecrire sur deux feuilles en même temps

Salut Job75

Je te remercie beaucoup

Mais comme j'avais demander à Papou, est-il pas possible de faire une copie automatique sans passer par l'activation de la feuille ni un bouton?

Bonne W.E et bonne Fêtes et merci encore

@+
Max

 

[job75]

Re : Ecrire sur deux feuilles en même temps

Re,

On peut bien sûr lancer la macro par ce code dans la feuille Inscription :

Private Sub Worksheet_Change(ByVal Target As Range)
Transfert
End Sub

Il vaut mieux alors supprimer Application.ScreenUpdating = False

La macro sera lancée à chaque modification, quel est l'intérêt ?

A+

 

[maval]

Re : Ecrire sur deux feuilles en même temps

Re,

Parce que j'avais ajouter ceci au code:

Application.EnableEvents = False
Application.EnableEvents = True

Peut être une bétise?

@+

Max

 

[job75]

Re : Ecrire sur deux feuilles en même temps

Re,

Les Application.EnableEvents sont nécessaires quand une macro crée un événement qui la relance.

A priori ce n'est pas le cas ici.

A+

 

[maval]

Re : Ecrire sur deux feuilles en même temps

Re,

Bon alors tempi?

Merci pour les renseignements

@+

Max

 

[job75]

Re : Ecrire sur deux feuilles en même temps

Bonjour maval, Papou, le forum,

Je m'étonne que les formulistes ne se soient pas manifestés.

Formule unique en E3 de la feuille Classement :

=INDEX(Inscription!$C$3:$D$202;1+2*(LIGNES(E$3:E3)-1)+(COLONNES($E3:E3)=3);MIN(COLONNES($E3:E3);2))

à copier sur la plage E3:G102.

Fichier joint.

A+

 

[job75]

Re : Ecrire sur deux feuilles en même temps

Re,

Si l'on veut pouvoir supprimer ou insérer des lignes dans le tableau source :

- définir le nom Table par la formule :

=DECALER(Inscription!$C$2:$D$2;1;;2*NB(Inscription!$C:$C)+1)

- formule en Classement!E3 à copier vers la droite et le bas :

=SI(LIGNES(E$3:E3)>LIGNES(Table)/2;"";INDEX(Table;1+2*(LIGNES(E$3:E3)-1)+(COLONNES($E3:E3)=3);MIN(COLONNES($E3:E3);2)))

Plus nécessaire de s'occuper des valeurs zéro.

Fichier (2).

Edit : bon c'est quand même plus simple d'utiliser le fichier (1 bis) avec :

=INDEX(DECALER(Inscription!$C$2:$D$2;1;;200);1+2*(LIGNES(E$3:E3)-1)+(COLONNES($E3:E3)=3);MIN(COLONNES($E3:E3);2))

A+