Recopier zone

Résolu/Fermé
surplus Messages postés 673 Date d'inscription mardi 17 août 2010 Statut Membre Dernière intervention 14 novembre 2021 - 10 oct. 2012 à 22:16
Mytå Messages postés 2973 Date d'inscription mardi 20 janvier 2009 Statut Contributeur Dernière intervention 20 décembre 2016 - 11 oct. 2012 à 18:44
Bonjour,
j'ai une zone de liste
=DECALER(Vehic!$A$1;1;;NBVAL(Vehic!$A:$A)-1)

est il possible de recopier les valeurs de cette zone dans 12 feuilles différentes?merci
a bientot

5 réponses

Mytå Messages postés 2973 Date d'inscription mardi 20 janvier 2009 Statut Contributeur Dernière intervention 20 décembre 2016 952
11 oct. 2012 à 02:17
Salut le forum

Utilise une plage nommée
Vehicule fait référence à =DECALER(Vehic!$A$1;1;;NBVAL(Vehic!$A:$A)-1)

Tu utilises ensuite le nom dans tes Listes de Validation

Mytå
0
surplus Messages postés 673 Date d'inscription mardi 17 août 2010 Statut Membre Dernière intervention 14 novembre 2021 4
11 oct. 2012 à 07:09
bonjour
mais je veux pas une liste de validation ce sont des plages fixes
JanvierA7=vehic A2,JanvierA8=VehicA2 par exemple sur les 12 feuilles
merci
0
Mytå Messages postés 2973 Date d'inscription mardi 20 janvier 2009 Statut Contributeur Dernière intervention 20 décembre 2016 952
11 oct. 2012 à 07:22
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å
0
surplus Messages postés 673 Date d'inscription mardi 17 août 2010 Statut Membre Dernière intervention 14 novembre 2021 4
11 oct. 2012 à 13:19
bonjour
merci cela marche mais laisse des #N/A sur les cellules vides
on m a proposé une macro plus adequate pour moi
merci
a bientot
0

Vous n’avez pas trouvé la réponse que vous recherchez ?

Posez votre question
Mytå Messages postés 2973 Date d'inscription mardi 20 janvier 2009 Statut Contributeur Dernière intervention 20 décembre 2016 952
11 oct. 2012 à 18:44
Re le forum

Utilise une plage nommée
Flotte fait référence à =DECALER(Vehic!$A$1;1;;NBVAL(Vehic!$A:$A)-1)

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

Mytå
0