Cette formule founie par michdenis fonctionne à la maison. Mais au bureau
sous Excel 2002, elle ne m'insére rien.
J'ai bien tenté : With Sheets("Liste").Range("A" & LigneDep & ":BD" &
LignDep) mais cela ne fonctionne pas non plus.
Quelqu'un aurait-il une soluce pour faire fonctionner cette macro sous Excel
2002 et sous Excel 2005 ?
Merci d'avance.
Cette action est irreversible, confirmez la suppression du commentaire ?
Signaler le commentaire
Veuillez sélectionner un problème
Nudité
Violence
Harcèlement
Fraude
Vente illégale
Discours haineux
Terrorisme
Autre
Philippe Noss
bonjour Excel2005 n'existe pas ! Mais vu le code, il n'y a pas de raison que cela ne marche pas ! Peut etre l'insertion se fait ailleurs Il faudrait peut etre verifier la valeur de LigneDep avec le debogage...ou en inserant le code msgbox LigneDep Philippe N http://nossphil.perso.cegetel.net/exoutils.html
bonjour
Excel2005 n'existe pas !
Mais vu le code, il n'y a pas de raison que cela ne marche pas !
Peut etre l'insertion se fait ailleurs
Il faudrait peut etre verifier la valeur de LigneDep avec le
debogage...ou en inserant le code
msgbox LigneDep
Philippe N
http://nossphil.perso.cegetel.net/exoutils.html
bonjour Excel2005 n'existe pas ! Mais vu le code, il n'y a pas de raison que cela ne marche pas ! Peut etre l'insertion se fait ailleurs Il faudrait peut etre verifier la valeur de LigneDep avec le debogage...ou en inserant le code msgbox LigneDep Philippe N http://nossphil.perso.cegetel.net/exoutils.html
michdenis
Bonjour Comes.metz
A ) With Range("A" & LigneDep & ":BD" & LignDep Observe bien, un des LignDep ... a une erreur d'orthographe
B ) Si tu utilises ce type de syntaxe, il sera valide que ton code soit dans un module standard ou un module feuille. Ce n'est pas nécessairement vrai dans la syntaxe utilisé si ton code est inscrit dans un module feuille et que tu veuilles ajouter une ligne dans une autre feuille ! '-------------------------- Dim LigneDep As Long LigneDep = 5 With Sheets("Liste") With .Range("A" & LigneDep & ":BD" & LigneDep) .Insert xlShiftDown End With End With '--------------------------
Salutations!
"Comres.metz" a écrit dans le message de news: 43535c41$0$27430$ Bonjour à toutes et à tous,
Sur l'onglet1 en D8 je récupére une valeur. Sur l'onglet Liste, je récupére cette valeur pour insérer une ligne.
Cette formule founie par michdenis fonctionne à la maison. Mais au bureau sous Excel 2002, elle ne m'insére rien. J'ai bien tenté : With Sheets("Liste").Range("A" & LigneDep & ":BD" & LignDep) mais cela ne fonctionne pas non plus. Quelqu'un aurait-il une soluce pour faire fonctionner cette macro sous Excel 2002 et sous Excel 2005 ? Merci d'avance.
Bonjour Comes.metz
A )
With Range("A" & LigneDep & ":BD" & LignDep
Observe bien, un des LignDep ... a une erreur d'orthographe
B ) Si tu utilises ce type de syntaxe, il sera valide que ton code soit
dans un module standard ou un module feuille. Ce n'est pas nécessairement vrai
dans la syntaxe utilisé si ton code est inscrit dans un module feuille et que tu
veuilles ajouter une ligne dans une autre feuille !
'--------------------------
Dim LigneDep As Long
LigneDep = 5
With Sheets("Liste")
With .Range("A" & LigneDep & ":BD" & LigneDep)
.Insert xlShiftDown
End With
End With
'--------------------------
Salutations!
"Comres.metz" <comres.metz@gendarmerie.net> a écrit dans le message de news: 43535c41$0$27430$8fcfb975@news.wanadoo.fr...
Bonjour à toutes et à tous,
Sur l'onglet1 en D8 je récupére une valeur.
Sur l'onglet Liste, je récupére cette valeur pour insérer une ligne.
Cette formule founie par michdenis fonctionne à la maison. Mais au bureau
sous Excel 2002, elle ne m'insére rien.
J'ai bien tenté : With Sheets("Liste").Range("A" & LigneDep & ":BD" &
LignDep) mais cela ne fonctionne pas non plus.
Quelqu'un aurait-il une soluce pour faire fonctionner cette macro sous Excel
2002 et sous Excel 2005 ?
Merci d'avance.
A ) With Range("A" & LigneDep & ":BD" & LignDep Observe bien, un des LignDep ... a une erreur d'orthographe
B ) Si tu utilises ce type de syntaxe, il sera valide que ton code soit dans un module standard ou un module feuille. Ce n'est pas nécessairement vrai dans la syntaxe utilisé si ton code est inscrit dans un module feuille et que tu veuilles ajouter une ligne dans une autre feuille ! '-------------------------- Dim LigneDep As Long LigneDep = 5 With Sheets("Liste") With .Range("A" & LigneDep & ":BD" & LigneDep) .Insert xlShiftDown End With End With '--------------------------
Salutations!
"Comres.metz" a écrit dans le message de news: 43535c41$0$27430$ Bonjour à toutes et à tous,
Sur l'onglet1 en D8 je récupére une valeur. Sur l'onglet Liste, je récupére cette valeur pour insérer une ligne.
Cette formule founie par michdenis fonctionne à la maison. Mais au bureau sous Excel 2002, elle ne m'insére rien. J'ai bien tenté : With Sheets("Liste").Range("A" & LigneDep & ":BD" & LignDep) mais cela ne fonctionne pas non plus. Quelqu'un aurait-il une soluce pour faire fonctionner cette macro sous Excel 2002 et sous Excel 2005 ? Merci d'avance.
Comres.metz
Bonjour,
Les valeurs de LignDep sont justes. L'insertion se fait sur la Feuil1 au lieu de se faire sur la Feuil2.
"Philippe Noss" a écrit dans le message de news:
bonjour Excel2005 n'existe pas ! Mais vu le code, il n'y a pas de raison que cela ne marche pas ! Peut etre l'insertion se fait ailleurs Il faudrait peut etre verifier la valeur de LigneDep avec le debogage...ou en inserant le code msgbox LigneDep Philippe N http://nossphil.perso.cegetel.net/exoutils.html
Bonjour,
Les valeurs de LignDep sont justes.
L'insertion se fait sur la Feuil1 au lieu de se faire sur la Feuil2.
"Philippe Noss" <exefac@exefac.com> a écrit dans le message de
news:1129537463.221905.118980@g47g2000cwa.googlegroups.com...
bonjour
Excel2005 n'existe pas !
Mais vu le code, il n'y a pas de raison que cela ne marche pas !
Peut etre l'insertion se fait ailleurs
Il faudrait peut etre verifier la valeur de LigneDep avec le
debogage...ou en inserant le code
msgbox LigneDep
Philippe N
http://nossphil.perso.cegetel.net/exoutils.html
Les valeurs de LignDep sont justes. L'insertion se fait sur la Feuil1 au lieu de se faire sur la Feuil2.
"Philippe Noss" a écrit dans le message de news:
bonjour Excel2005 n'existe pas ! Mais vu le code, il n'y a pas de raison que cela ne marche pas ! Peut etre l'insertion se fait ailleurs Il faudrait peut etre verifier la valeur de LigneDep avec le debogage...ou en inserant le code msgbox LigneDep Philippe N http://nossphil.perso.cegetel.net/exoutils.html
Comres.metz
Bonjour, C'est une erreur de frappe lors de la recopie sous Outlook ;-)
Mon code se trouve bien dans Feuil1 (page de garde) et je veux insérer cette ligne dans Feuil2 (liste). Hors, il est vrai qu'a l'éxecution du code, la ligne est insérée dans Feuil1. Donc, pour insérer une ligne en Feuil2 depuis la Feuil1, il faudrait que mon code ne se trouve pas dans Feuil1. Mais ou faudrait-il le mettre et comment l'appeler, car, j'utilise un bouton sur Feuil1.
"michdenis" a écrit dans le message de news:
Bonjour Comes.metz
A ) With Range("A" & LigneDep & ":BD" & LignDep Observe bien, un des LignDep ... a une erreur d'orthographe
B ) Si tu utilises ce type de syntaxe, il sera valide que ton code soit dans un module standard ou un module feuille. Ce n'est pas nécessairement vrai
dans la syntaxe utilisé si ton code est inscrit dans un module feuille et que tu
veuilles ajouter une ligne dans une autre feuille ! '-------------------------- Dim LigneDep As Long LigneDep = 5 With Sheets("Liste") With .Range("A" & LigneDep & ":BD" & LigneDep) .Insert xlShiftDown End With End With '--------------------------
Salutations!
"Comres.metz" a écrit dans le message de news: 43535c41$0$27430$
Bonjour à toutes et à tous,
Sur l'onglet1 en D8 je récupére une valeur. Sur l'onglet Liste, je récupére cette valeur pour insérer une ligne.
Cette formule founie par michdenis fonctionne à la maison. Mais au bureau sous Excel 2002, elle ne m'insére rien. J'ai bien tenté : With Sheets("Liste").Range("A" & LigneDep & ":BD" & LignDep) mais cela ne fonctionne pas non plus. Quelqu'un aurait-il une soluce pour faire fonctionner cette macro sous Excel
2002 et sous Excel 2005 ? Merci d'avance.
Bonjour,
C'est une erreur de frappe lors de la recopie sous Outlook ;-)
Mon code se trouve bien dans Feuil1 (page de garde) et je veux insérer cette
ligne dans Feuil2 (liste).
Hors, il est vrai qu'a l'éxecution du code, la ligne est insérée dans
Feuil1.
Donc, pour insérer une ligne en Feuil2 depuis la Feuil1, il faudrait que mon
code ne se trouve pas dans Feuil1. Mais ou faudrait-il le mettre et comment
l'appeler, car, j'utilise un bouton sur Feuil1.
"michdenis" <michdenis@hotmail.com> a écrit dans le message de
news:Oaitqtx0FHA.3720@TK2MSFTNGP14.phx.gbl...
Bonjour Comes.metz
A )
With Range("A" & LigneDep & ":BD" & LignDep
Observe bien, un des LignDep ... a une erreur d'orthographe
B ) Si tu utilises ce type de syntaxe, il sera valide que ton code soit
dans un module standard ou un module feuille. Ce n'est pas
nécessairement vrai
dans la syntaxe utilisé si ton code est inscrit dans un module feuille
et que tu
veuilles ajouter une ligne dans une autre feuille !
'--------------------------
Dim LigneDep As Long
LigneDep = 5
With Sheets("Liste")
With .Range("A" & LigneDep & ":BD" & LigneDep)
.Insert xlShiftDown
End With
End With
'--------------------------
Salutations!
"Comres.metz" <comres.metz@gendarmerie.net> a écrit dans le message de
news: 43535c41$0$27430$8fcfb975@news.wanadoo.fr...
Bonjour à toutes et à tous,
Sur l'onglet1 en D8 je récupére une valeur.
Sur l'onglet Liste, je récupére cette valeur pour insérer une ligne.
Cette formule founie par michdenis fonctionne à la maison. Mais au bureau
sous Excel 2002, elle ne m'insére rien.
J'ai bien tenté : With Sheets("Liste").Range("A" & LigneDep & ":BD" &
LignDep) mais cela ne fonctionne pas non plus.
Quelqu'un aurait-il une soluce pour faire fonctionner cette macro sous
Excel
Bonjour, C'est une erreur de frappe lors de la recopie sous Outlook ;-)
Mon code se trouve bien dans Feuil1 (page de garde) et je veux insérer cette ligne dans Feuil2 (liste). Hors, il est vrai qu'a l'éxecution du code, la ligne est insérée dans Feuil1. Donc, pour insérer une ligne en Feuil2 depuis la Feuil1, il faudrait que mon code ne se trouve pas dans Feuil1. Mais ou faudrait-il le mettre et comment l'appeler, car, j'utilise un bouton sur Feuil1.
"michdenis" a écrit dans le message de news:
Bonjour Comes.metz
A ) With Range("A" & LigneDep & ":BD" & LignDep Observe bien, un des LignDep ... a une erreur d'orthographe
B ) Si tu utilises ce type de syntaxe, il sera valide que ton code soit dans un module standard ou un module feuille. Ce n'est pas nécessairement vrai
dans la syntaxe utilisé si ton code est inscrit dans un module feuille et que tu
veuilles ajouter une ligne dans une autre feuille ! '-------------------------- Dim LigneDep As Long LigneDep = 5 With Sheets("Liste") With .Range("A" & LigneDep & ":BD" & LigneDep) .Insert xlShiftDown End With End With '--------------------------
Salutations!
"Comres.metz" a écrit dans le message de news: 43535c41$0$27430$
Bonjour à toutes et à tous,
Sur l'onglet1 en D8 je récupére une valeur. Sur l'onglet Liste, je récupére cette valeur pour insérer une ligne.
Cette formule founie par michdenis fonctionne à la maison. Mais au bureau sous Excel 2002, elle ne m'insére rien. J'ai bien tenté : With Sheets("Liste").Range("A" & LigneDep & ":BD" & LignDep) mais cela ne fonctionne pas non plus. Quelqu'un aurait-il une soluce pour faire fonctionner cette macro sous Excel
2002 et sous Excel 2005 ? Merci d'avance.
michdenis
| pour insérer une ligne en Feuil2 depuis la Feuil1
Utilise le type de syntaxe que je t'ai proposée, il est toujours valide peu importe où le code se situe.
With ... 'le code End With
Salutations!
"Comres.metz" a écrit dans le message de news: 4353a51e$1$27439$ Bonjour, C'est une erreur de frappe lors de la recopie sous Outlook ;-)
Mon code se trouve bien dans Feuil1 (page de garde) et je veux insérer cette ligne dans Feuil2 (liste). Hors, il est vrai qu'a l'éxecution du code, la ligne est insérée dans Feuil1. Donc, pour insérer une ligne en Feuil2 depuis la Feuil1, il faudrait que mon code ne se trouve pas dans Feuil1. Mais ou faudrait-il le mettre et comment l'appeler, car, j'utilise un bouton sur Feuil1.
"michdenis" a écrit dans le message de news:
Bonjour Comes.metz
A ) With Range("A" & LigneDep & ":BD" & LignDep Observe bien, un des LignDep ... a une erreur d'orthographe
B ) Si tu utilises ce type de syntaxe, il sera valide que ton code soit dans un module standard ou un module feuille. Ce n'est pas nécessairement vrai
dans la syntaxe utilisé si ton code est inscrit dans un module feuille et que tu
veuilles ajouter une ligne dans une autre feuille ! '-------------------------- Dim LigneDep As Long LigneDep = 5 With Sheets("Liste") With .Range("A" & LigneDep & ":BD" & LigneDep) .Insert xlShiftDown End With End With '--------------------------
Salutations!
"Comres.metz" a écrit dans le message de news: 43535c41$0$27430$
Bonjour à toutes et à tous,
Sur l'onglet1 en D8 je récupére une valeur. Sur l'onglet Liste, je récupére cette valeur pour insérer une ligne.
Cette formule founie par michdenis fonctionne à la maison. Mais au bureau sous Excel 2002, elle ne m'insére rien. J'ai bien tenté : With Sheets("Liste").Range("A" & LigneDep & ":BD" & LignDep) mais cela ne fonctionne pas non plus. Quelqu'un aurait-il une soluce pour faire fonctionner cette macro sous Excel
2002 et sous Excel 2005 ? Merci d'avance.
| pour insérer une ligne en Feuil2 depuis la Feuil1
Utilise le type de syntaxe que je t'ai proposée, il est toujours valide peu importe où le code se situe.
With ...
'le code
End With
Salutations!
"Comres.metz" <comres.metz@gendarmerie.net> a écrit dans le message de news: 4353a51e$1$27439$8fcfb975@news.wanadoo.fr...
Bonjour,
C'est une erreur de frappe lors de la recopie sous Outlook ;-)
Mon code se trouve bien dans Feuil1 (page de garde) et je veux insérer cette
ligne dans Feuil2 (liste).
Hors, il est vrai qu'a l'éxecution du code, la ligne est insérée dans
Feuil1.
Donc, pour insérer une ligne en Feuil2 depuis la Feuil1, il faudrait que mon
code ne se trouve pas dans Feuil1. Mais ou faudrait-il le mettre et comment
l'appeler, car, j'utilise un bouton sur Feuil1.
"michdenis" <michdenis@hotmail.com> a écrit dans le message de
news:Oaitqtx0FHA.3720@TK2MSFTNGP14.phx.gbl...
Bonjour Comes.metz
A )
With Range("A" & LigneDep & ":BD" & LignDep
Observe bien, un des LignDep ... a une erreur d'orthographe
B ) Si tu utilises ce type de syntaxe, il sera valide que ton code soit
dans un module standard ou un module feuille. Ce n'est pas
nécessairement vrai
dans la syntaxe utilisé si ton code est inscrit dans un module feuille
et que tu
veuilles ajouter une ligne dans une autre feuille !
'--------------------------
Dim LigneDep As Long
LigneDep = 5
With Sheets("Liste")
With .Range("A" & LigneDep & ":BD" & LigneDep)
.Insert xlShiftDown
End With
End With
'--------------------------
Salutations!
"Comres.metz" <comres.metz@gendarmerie.net> a écrit dans le message de
news: 43535c41$0$27430$8fcfb975@news.wanadoo.fr...
Bonjour à toutes et à tous,
Sur l'onglet1 en D8 je récupére une valeur.
Sur l'onglet Liste, je récupére cette valeur pour insérer une ligne.
Cette formule founie par michdenis fonctionne à la maison. Mais au bureau
sous Excel 2002, elle ne m'insére rien.
J'ai bien tenté : With Sheets("Liste").Range("A" & LigneDep & ":BD" &
LignDep) mais cela ne fonctionne pas non plus.
Quelqu'un aurait-il une soluce pour faire fonctionner cette macro sous
Excel
| pour insérer une ligne en Feuil2 depuis la Feuil1
Utilise le type de syntaxe que je t'ai proposée, il est toujours valide peu importe où le code se situe.
With ... 'le code End With
Salutations!
"Comres.metz" a écrit dans le message de news: 4353a51e$1$27439$ Bonjour, C'est une erreur de frappe lors de la recopie sous Outlook ;-)
Mon code se trouve bien dans Feuil1 (page de garde) et je veux insérer cette ligne dans Feuil2 (liste). Hors, il est vrai qu'a l'éxecution du code, la ligne est insérée dans Feuil1. Donc, pour insérer une ligne en Feuil2 depuis la Feuil1, il faudrait que mon code ne se trouve pas dans Feuil1. Mais ou faudrait-il le mettre et comment l'appeler, car, j'utilise un bouton sur Feuil1.
"michdenis" a écrit dans le message de news:
Bonjour Comes.metz
A ) With Range("A" & LigneDep & ":BD" & LignDep Observe bien, un des LignDep ... a une erreur d'orthographe
B ) Si tu utilises ce type de syntaxe, il sera valide que ton code soit dans un module standard ou un module feuille. Ce n'est pas nécessairement vrai
dans la syntaxe utilisé si ton code est inscrit dans un module feuille et que tu
veuilles ajouter une ligne dans une autre feuille ! '-------------------------- Dim LigneDep As Long LigneDep = 5 With Sheets("Liste") With .Range("A" & LigneDep & ":BD" & LigneDep) .Insert xlShiftDown End With End With '--------------------------
Salutations!
"Comres.metz" a écrit dans le message de news: 43535c41$0$27430$
Bonjour à toutes et à tous,
Sur l'onglet1 en D8 je récupére une valeur. Sur l'onglet Liste, je récupére cette valeur pour insérer une ligne.
Cette formule founie par michdenis fonctionne à la maison. Mais au bureau sous Excel 2002, elle ne m'insére rien. J'ai bien tenté : With Sheets("Liste").Range("A" & LigneDep & ":BD" & LignDep) mais cela ne fonctionne pas non plus. Quelqu'un aurait-il une soluce pour faire fonctionner cette macro sous Excel
2002 et sous Excel 2005 ? Merci d'avance.
lolo
Impeccable, cela fonctionne nickel. Un grand merci.
| pour insérer une ligne en Feuil2 depuis la Feuil1
Utilise le type de syntaxe que je t'ai proposée, il est toujours valide peu importe où le code se situe.
With ... 'le code End With
Salutations!
"Comres.metz" a écrit dans le message de news: 4353a51e$1$27439$ Bonjour, C'est une erreur de frappe lors de la recopie sous Outlook ;-)
Mon code se trouve bien dans Feuil1 (page de garde) et je veux insérer cette ligne dans Feuil2 (liste). Hors, il est vrai qu'a l'éxecution du code, la ligne est insérée dans Feuil1. Donc, pour insérer une ligne en Feuil2 depuis la Feuil1, il faudrait que mon code ne se trouve pas dans Feuil1. Mais ou faudrait-il le mettre et comment l'appeler, car, j'utilise un bouton sur Feuil1.
"michdenis" a écrit dans le message de news:
Bonjour Comes.metz
A ) With Range("A" & LigneDep & ":BD" & LignDep Observe bien, un des LignDep ... a une erreur d'orthographe
B ) Si tu utilises ce type de syntaxe, il sera valide que ton code soit dans un module standard ou un module feuille. Ce n'est pas
nécessairement vrai
dans la syntaxe utilisé si ton code est inscrit dans un module feuille
et que tu
veuilles ajouter une ligne dans une autre feuille ! '-------------------------- Dim LigneDep As Long LigneDep = 5 With Sheets("Liste") With .Range("A" & LigneDep & ":BD" & LigneDep) .Insert xlShiftDown End With End With '--------------------------
Salutations!
"Comres.metz" a écrit dans le message de
news: 43535c41$0$27430$
Bonjour à toutes et à tous,
Sur l'onglet1 en D8 je récupére une valeur. Sur l'onglet Liste, je récupére cette valeur pour insérer une ligne.
Cette formule founie par michdenis fonctionne à la maison. Mais au bureau sous Excel 2002, elle ne m'insére rien. J'ai bien tenté : With Sheets("Liste").Range("A" & LigneDep & ":BD" & LignDep) mais cela ne fonctionne pas non plus. Quelqu'un aurait-il une soluce pour faire fonctionner cette macro sous
Excel
2002 et sous Excel 2005 ? Merci d'avance.
Impeccable, cela fonctionne nickel.
Un grand merci.
| pour insérer une ligne en Feuil2 depuis la Feuil1
Utilise le type de syntaxe que je t'ai proposée, il est toujours valide peu importe où le code se situe.
With ...
'le code
End With
Salutations!
"Comres.metz" <comres.metz@gendarmerie.net> a écrit dans le message de news: 4353a51e$1$27439$8fcfb975@news.wanadoo.fr...
Bonjour,
C'est une erreur de frappe lors de la recopie sous Outlook ;-)
Mon code se trouve bien dans Feuil1 (page de garde) et je veux insérer cette
ligne dans Feuil2 (liste).
Hors, il est vrai qu'a l'éxecution du code, la ligne est insérée dans
Feuil1.
Donc, pour insérer une ligne en Feuil2 depuis la Feuil1, il faudrait que mon
code ne se trouve pas dans Feuil1. Mais ou faudrait-il le mettre et comment
l'appeler, car, j'utilise un bouton sur Feuil1.
"michdenis" <michdenis@hotmail.com> a écrit dans le message de
news:Oaitqtx0FHA.3720@TK2MSFTNGP14.phx.gbl...
Bonjour Comes.metz
A )
With Range("A" & LigneDep & ":BD" & LignDep
Observe bien, un des LignDep ... a une erreur d'orthographe
B ) Si tu utilises ce type de syntaxe, il sera valide que ton code soit
dans un module standard ou un module feuille. Ce n'est pas
nécessairement vrai
dans la syntaxe utilisé si ton code est inscrit dans un module feuille
et que tu
veuilles ajouter une ligne dans une autre feuille !
'--------------------------
Dim LigneDep As Long
LigneDep = 5
With Sheets("Liste")
With .Range("A" & LigneDep & ":BD" & LigneDep)
.Insert xlShiftDown
End With
End With
'--------------------------
Salutations!
"Comres.metz" <comres.metz@gendarmerie.net> a écrit dans le message de
Cette formule founie par michdenis fonctionne à la maison. Mais au bureau
sous Excel 2002, elle ne m'insére rien.
J'ai bien tenté : With Sheets("Liste").Range("A" & LigneDep & ":BD" &
LignDep) mais cela ne fonctionne pas non plus.
Quelqu'un aurait-il une soluce pour faire fonctionner cette macro sous
Impeccable, cela fonctionne nickel. Un grand merci.
| pour insérer une ligne en Feuil2 depuis la Feuil1
Utilise le type de syntaxe que je t'ai proposée, il est toujours valide peu importe où le code se situe.
With ... 'le code End With
Salutations!
"Comres.metz" a écrit dans le message de news: 4353a51e$1$27439$ Bonjour, C'est une erreur de frappe lors de la recopie sous Outlook ;-)
Mon code se trouve bien dans Feuil1 (page de garde) et je veux insérer cette ligne dans Feuil2 (liste). Hors, il est vrai qu'a l'éxecution du code, la ligne est insérée dans Feuil1. Donc, pour insérer une ligne en Feuil2 depuis la Feuil1, il faudrait que mon code ne se trouve pas dans Feuil1. Mais ou faudrait-il le mettre et comment l'appeler, car, j'utilise un bouton sur Feuil1.
"michdenis" a écrit dans le message de news:
Bonjour Comes.metz
A ) With Range("A" & LigneDep & ":BD" & LignDep Observe bien, un des LignDep ... a une erreur d'orthographe
B ) Si tu utilises ce type de syntaxe, il sera valide que ton code soit dans un module standard ou un module feuille. Ce n'est pas
nécessairement vrai
dans la syntaxe utilisé si ton code est inscrit dans un module feuille
et que tu
veuilles ajouter une ligne dans une autre feuille ! '-------------------------- Dim LigneDep As Long LigneDep = 5 With Sheets("Liste") With .Range("A" & LigneDep & ":BD" & LigneDep) .Insert xlShiftDown End With End With '--------------------------
Salutations!
"Comres.metz" a écrit dans le message de
news: 43535c41$0$27430$
Bonjour à toutes et à tous,
Sur l'onglet1 en D8 je récupére une valeur. Sur l'onglet Liste, je récupére cette valeur pour insérer une ligne.
Cette formule founie par michdenis fonctionne à la maison. Mais au bureau sous Excel 2002, elle ne m'insére rien. J'ai bien tenté : With Sheets("Liste").Range("A" & LigneDep & ":BD" & LignDep) mais cela ne fonctionne pas non plus. Quelqu'un aurait-il une soluce pour faire fonctionner cette macro sous
