Autres Copier les cellules de A àH si la cellule de T=1

fanfan38

XLDnaute Barbatruc

• 11 Janvier 2020

• #2

Bonjour
J'espère avoir répondu à ton soucis...
A+ François

 

Pièces jointes

• adhérents-ABLAV1.xlsm

  95.4 KB · Affichages: 10

Vote positif 0 Vote négatif

Solution

Fgg

XLDnaute Nouveau

• 11 Janvier 2020

• #3

Ok, merci. C'est formidable, et je n'avais pas pensée à mettre un bouton dans la feuille de départ. Cette solution est génial, car c'est le début du programme qui me manquait.
Grand Merci
Fgg

 

Vote positif 0 Vote négatif

job75

XLDnaute Barbatruc

• 11 Janvier 2020

• #4

Bonjour Fgg, fanfan38,

Si les feuilles sont toujours placées dans le même ordre on peut utiliser cette macro dans le ThisWorkbook du fichierr joint :

VB:

Private Sub Workbook_SheetActivate(ByVal Sh As Object)
'les feuilles doivent toujours être placées dans le même ordre
If Sh.Index = 1 Then Exit Sub
Application.ScreenUpdating = False
If Sh.FilterMode Then Sh.ShowAllData 'si la feuille est filtrée
Sh.Range("A2:I" & Sh.Rows.Count).Delete xlUp 'RAZ
With Sheets("ADHERENTS").[A3].CurrentRegion
    .AutoFilter Sh.Index + 8, 1 'filtre automatique
    .Resize(, 9).Copy Sh.[A1]
    .AutoFilter
End With
End Sub

Elle se déclenche automatiquement quand on active une feuille.

A+

 

Pièces jointes

• adhérents-ABLAV(1).xlsm

  100.8 KB · Affichages: 2

Vote positif 0 Vote négatif

C

CHRIS1945

XLDnaute Occasionnel

• 11 Janvier 2020

• #5

Bonjour,
Comme tous les chemins mènent à Rome avec Excel, voici ma proposition SANS VBA
Comme la formule est peu complexe, j'ai joins un petit mémo qui explique comment cela fonctionne.
A toutes fins utiles, je signale aussi que, sous l'onglet FORMULES, il y a un bouton "Evaluation formules" à droite qui permet de suivre l'évolution du calcul que réalise Excel dans la cellule où se trouve le curseur. C'est très pratique pour comprendre la formule et pour trouver les bugs.

Bonne continuation
Chris

 

Pièces jointes

• adhérents-ABLAV1.xlsm

  255.2 KB · Affichages: 3
• ADHERENTS ABLAVI.docx

  13.8 KB · Affichages: 3

Vote positif 0 Vote négatif

Fgg

XLDnaute Nouveau

• 12 Janvier 2020

• #6

Bonjours à tous.
Grand merci pour vos conseils à une débutante, mais je cherche à faire une petit appli qui marche bien et qui sera facile à utilisé à des non initiés Excel.
A plus peut être.
Fgg

 

Vote positif 0 Vote négatif