recopier zone Résolu

Question

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

Mytå · Answer

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å

surplus · Answer

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

Mytå · Answer

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å

surplus · Answer

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

Mytå · Answer

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å

Recopier zone

5 réponses

Discussions similaires

Newsletters