recopier plage dans x feuilles[résolu]

[surplus]

Bonjour,
j'ai une plage dans une feuille nommée "Vehic"
=DECALER(Vehic!$A$1;1;;NBVAL(Vehic!$A:$A)-1)

est il possible de recopier les valeurs de cette zone dans 12 feuilles portant les noms des mois avec macro car les données de la plage peuvent varier assez souvent ?merci
a bientôt

 

[bbb38]

Re : recopier plage dans x feuilles

Bonjour surplus, le forum,
Pour éviter de créer ton fichier (en risquant de se tromper), peux-tu fournir un petit fichier d’exemple.
Cordialement,
Bernard

 

[surplus]

Re : recopier plage dans x feuilles

bonjour
http://cjoint.com/?BJkqATM2hgr
voici mon fichier
je voudrais avoir les noms de la feuille Vehic dans les pages du mois
merci
a bientôt

 

[Mytå]

Re : recopier plage dans x feuilles

Salut le forum

Dans le Gestionnaire de noms :
Vehicule fait référence à =DECALER(Vehic!$A$2;;;NBVAL(Vehic!$A:$A)-1)

Sur les feuilles saisir la plage A7:A14 et saisir =Vehicule valider la formule par CTRL + Shift + Enter

Mytå

 

[job75]

Re : recopier plage dans x feuilles

Bonjour surplus, le fil,

Vous avez nommé flotte la plage à copier.

Mettez donc cette macro dans ThisWorbook :

Private Sub Workbook_SheetActivate(ByVal Sh As Object)
Dim a
a = Array("Vehic", "BD", "An") 'feuilles à exclure
If IsError(Application.Match(Sh.CodeName, a, 0)) Then
  Sh.[A7].Resize([flotte].Count) = [flotte].Value
  Sh.Range("A" & [flotte].Count + 7 & ":A" & Rows.Count) = ""
End If
End Sub

S'il y a d'autres feuilles à exclure, mettez leur CodeName dans le tableau a.

A+

 

[surplus]

Re : recopier plage dans x feuilles

bonjour
merci de vos reponses
la solution de myta me laisse des #NA dans les cases vides
la macro de Job75 me correspond mieux
mais est il possible de la faire evoluer si dans la feuille Vehic la colonne H ligne du vehicule =N pour ne pas afficher ou le vehicule ou cacher la ligne ?
merci

 

[job75]

Re : recopier plage dans x feuilles

Re,

Je comprends 😕 que vous voulez copier l'immatriculation uniquement s'il y a "O" en colonne H :

Private Sub Workbook_SheetActivate(ByVal Sh As Object)
Dim a, tablo, R$(), i&, n&
a = Array("Vehic", "BD", "An") 'feuilles à exclure
If IsError(Application.Match(Sh.CodeName, a, 0)) Then
  tablo = [flotte].Resize(, 8) '8 colonnes A:H
  ReDim R(UBound(tablo), 0)
  For i = 1 To UBound(tablo)
    If UCase(tablo(i, 8)) = "O" Then
      R(n, 0) = tablo(i, 1)
      n = n + 1
    End If
  Next
  If n Then Sh.[A7].Resize(n) = R 'restitution
  Sh.Range("A" & n + 7 & ":A" & Rows.Count) = ""
End If
End Sub

L'exécution de la macro est rapide car elle utilise 2 tableaux VBA.

A+

 

[surplus]

Re : recopier plage dans x feuilles

re,
merci ça fonctionne bien mais quand j ai voulu enregistrer le travail excel ne peut pas j'essairai sur un autre ordi voir si ça vient de la macro ou pas
a bientot

 

[surplus]

Re : recopier plage dans x feuilles

re,
apres essai a la maison tout marche bien
merci encore
a bientot