Essaye ça :
En supposant (à adapter) :
** En Feuil1 :
Plages nommées (de façon dynamique avec fonction DECALER)
En A2:Ax les balais; brosses et autres --> "référence"
En B2:Bx les salle1; salle2.salle25 --> "attribution"
En A1:B1 les étiquettes de colonnes
** En Feuil2 : tout vide !
Sub zzz()
Application.ScreenUpdating = False
Sheets("Feuil2").Select
Cells.Clear
With Sheets("Feuil1")
.Range("B1", .[B65536].End(3)).AdvancedFilter Action:=xlFilterCopy, _
CopyToRange:=Range("B2"), Unique:=True
End With
With Range("B2", [B65536].End(3))
.Copy
[A1].PasteSpecial Transpose:=True
.Clear
End With
With Sheets("Feuil1")
For Each c In [référence]
x = Sheets("Feuil2").Rows("1:1").Find(What:=c.Offset(,
1)).Column
With Sheets("Feuil2")
Cells(Cells(65536, x).End(3).Row + 1, x) = c
End With
Next
End With
Cells.EntireColumn.AutoFit
[A1].Select
End Sub
Essaye ça :
En supposant (à adapter) :
** En Feuil1 :
Plages nommées (de façon dynamique avec fonction DECALER)
En A2:Ax les balais; brosses et autres --> "référence"
En B2:Bx les salle1; salle2.salle25 --> "attribution"
En A1:B1 les étiquettes de colonnes
** En Feuil2 : tout vide !
Sub zzz()
Application.ScreenUpdating = False
Sheets("Feuil2").Select
Cells.Clear
With Sheets("Feuil1")
.Range("B1", .[B65536].End(3)).AdvancedFilter Action:=xlFilterCopy, _
CopyToRange:=Range("B2"), Unique:=True
End With
With Range("B2", [B65536].End(3))
.Copy
[A1].PasteSpecial Transpose:=True
.Clear
End With
With Sheets("Feuil1")
For Each c In [référence]
x = Sheets("Feuil2").Rows("1:1").Find(What:=c.Offset(,
1)).Column
With Sheets("Feuil2")
Cells(Cells(65536, x).End(3).Row + 1, x) = c
End With
Next
End With
Cells.EntireColumn.AutoFit
[A1].Select
End Sub
Essaye ça :
En supposant (à adapter) :
** En Feuil1 :
Plages nommées (de façon dynamique avec fonction DECALER)
En A2:Ax les balais; brosses et autres --> "référence"
En B2:Bx les salle1; salle2.salle25 --> "attribution"
En A1:B1 les étiquettes de colonnes
** En Feuil2 : tout vide !
Sub zzz()
Application.ScreenUpdating = False
Sheets("Feuil2").Select
Cells.Clear
With Sheets("Feuil1")
.Range("B1", .[B65536].End(3)).AdvancedFilter Action:=xlFilterCopy, _
CopyToRange:=Range("B2"), Unique:=True
End With
With Range("B2", [B65536].End(3))
.Copy
[A1].PasteSpecial Transpose:=True
.Clear
End With
With Sheets("Feuil1")
For Each c In [référence]
x = Sheets("Feuil2").Rows("1:1").Find(What:=c.Offset(,
1)).Column
With Sheets("Feuil2")
Cells(Cells(65536, x).End(3).Row + 1, x) = c
End With
Next
End With
Cells.EntireColumn.AutoFit
[A1].Select
End Sub
Comment fait on pour nommer des plages de façon dynamique avec la fonction
DECALER?
fait référence à :
Copier/coller
fait référence à :
Copier/coller
Comment fait on pour nommer des plages de façon dynamique avec la fonction
DECALER?
fait référence à :
Copier/coller
fait référence à :
Copier/coller
Comment fait on pour nommer des plages de façon dynamique avec la fonction
DECALER?
fait référence à :
Copier/coller
fait référence à :
Copier/coller
Bonjour,
Feuil 1 : reference attribution
balais salle 1
brosse salle 2
gant salle 1
je veux pouvoir en Feuil 2 visualiser de cette manière :
salle 1 salle 2
balais gant
brosse
le problème est que j' aimerai avoir un programme qui fait que si
je change l' attribution des salles en Feuil 1, j' aimerai qu'
automatiquement en Feuil 2 les references s' adaptent
J' espère avoir été + clair que précédemment et merci d' avance,
pjm
.
Bonjour,
Feuil 1 : reference attribution
balais salle 1
brosse salle 2
gant salle 1
je veux pouvoir en Feuil 2 visualiser de cette manière :
salle 1 salle 2
balais gant
brosse
le problème est que j' aimerai avoir un programme qui fait que si
je change l' attribution des salles en Feuil 1, j' aimerai qu'
automatiquement en Feuil 2 les references s' adaptent
J' espère avoir été + clair que précédemment et merci d' avance,
pjm
.
Bonjour,
Feuil 1 : reference attribution
balais salle 1
brosse salle 2
gant salle 1
je veux pouvoir en Feuil 2 visualiser de cette manière :
salle 1 salle 2
balais gant
brosse
le problème est que j' aimerai avoir un programme qui fait que si
je change l' attribution des salles en Feuil 1, j' aimerai qu'
automatiquement en Feuil 2 les references s' adaptent
J' espère avoir été + clair que précédemment et merci d' avance,
pjm
.