Bonjour le forum,
J'ai créé un classeur pour l'organisation d'une compétition et il y a un petit problème que je ne sais résoudre.
Je pensais quand utilisant cette formule cela fonctionnerais, mais non ça ne va pas.
x = Sheets("Inscr").Range("B10:B" & Rows.Count).Find("*", SearchOrder:=xlByRows, SearchDirection:=xlPrevious, LookIn:=xlValues).Row
Sheets("Inscr").Range("B10:B" & x).Copy
Sheets("Jeux").Range("H" & Column.Count).End(xlToLeft).Column.Offset(2, 0).PasteSpecial Paste:=xlPasteValues, SkipBlanks:=True, Transpose:=True
Pourriez-vous m'aider ?
Pour plus d'explication, je joints un exemple du fichier
Merci pour votre aide,
Georges
J'ai créé un classeur pour l'organisation d'une compétition et il y a un petit problème que je ne sais résoudre.
Je pensais quand utilisant cette formule cela fonctionnerais, mais non ça ne va pas.
x = Sheets("Inscr").Range("B10:B" & Rows.Count).Find("*", SearchOrder:=xlByRows, SearchDirection:=xlPrevious, LookIn:=xlValues).Row
Sheets("Inscr").Range("B10:B" & x).Copy
Sheets("Jeux").Range("H" & Column.Count).End(xlToLeft).Column.Offset(2, 0).PasteSpecial Paste:=xlPasteValues, SkipBlanks:=True, Transpose:=True
Pourriez-vous m'aider ?
Pour plus d'explication, je joints un exemple du fichier
Merci pour votre aide,
Georges