Sur Feuil1 en D8, je rentre un nombre.
En appuyant sur un bouton, je veux insérer une ligne àpartir du nombre
rentré en D8.
J'ai essayé :
toto = Range("D8").Value
toto = toto + 1
Range("A:H" & toto).Select
Selection.Insert Shift:=xlDown
Pour pouvoir insérer une ligne dans mon tableau qui va de A à H. Mais
cela ne fonctionne pas
Et j'ai essayé :
toto = Range("D8").Value
toto = toto + 1
Rows("A" & toto).Select
Selection.Insert Shift:=xlDown
et cela ne fonctionne pas non plus.
Savez vous pourquoi car cela fonctionne si je veux insérer juste une
cellule ?
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
michdenis
Bonjour Lolo,
Essaie ceci :
Dim Toto As Long Toto = 5 With Range("A" & Toto & ":H" & Toto) .Insert xlShiftDown End With
Salutations!
"lolo" a écrit dans le message de news: 435290be$0$4385$ Bonjour à toutes et à tous,
Sur Feuil1 en D8, je rentre un nombre. En appuyant sur un bouton, je veux insérer une ligne àpartir du nombre rentré en D8.
J'ai essayé : toto = Range("D8").Value toto = toto + 1 Range("A:H" & toto).Select Selection.Insert Shift:=xlDown Pour pouvoir insérer une ligne dans mon tableau qui va de A à H. Mais cela ne fonctionne pas
Et j'ai essayé : toto = Range("D8").Value toto = toto + 1 Rows("A" & toto).Select Selection.Insert Shift:=xlDown et cela ne fonctionne pas non plus. Savez vous pourquoi car cela fonctionne si je veux insérer juste une cellule ? Merci d'avance.
Bonjour Lolo,
Essaie ceci :
Dim Toto As Long
Toto = 5
With Range("A" & Toto & ":H" & Toto)
.Insert xlShiftDown
End With
Salutations!
"lolo" <l.maire_nospams_@free.fr> a écrit dans le message de news: 435290be$0$4385$626a54ce@news.free.fr...
Bonjour à toutes et à tous,
Sur Feuil1 en D8, je rentre un nombre.
En appuyant sur un bouton, je veux insérer une ligne àpartir du nombre
rentré en D8.
J'ai essayé :
toto = Range("D8").Value
toto = toto + 1
Range("A:H" & toto).Select
Selection.Insert Shift:=xlDown
Pour pouvoir insérer une ligne dans mon tableau qui va de A à H. Mais
cela ne fonctionne pas
Et j'ai essayé :
toto = Range("D8").Value
toto = toto + 1
Rows("A" & toto).Select
Selection.Insert Shift:=xlDown
et cela ne fonctionne pas non plus.
Savez vous pourquoi car cela fonctionne si je veux insérer juste une
cellule ?
Merci d'avance.
Dim Toto As Long Toto = 5 With Range("A" & Toto & ":H" & Toto) .Insert xlShiftDown End With
Salutations!
"lolo" a écrit dans le message de news: 435290be$0$4385$ Bonjour à toutes et à tous,
Sur Feuil1 en D8, je rentre un nombre. En appuyant sur un bouton, je veux insérer une ligne àpartir du nombre rentré en D8.
J'ai essayé : toto = Range("D8").Value toto = toto + 1 Range("A:H" & toto).Select Selection.Insert Shift:=xlDown Pour pouvoir insérer une ligne dans mon tableau qui va de A à H. Mais cela ne fonctionne pas
Et j'ai essayé : toto = Range("D8").Value toto = toto + 1 Rows("A" & toto).Select Selection.Insert Shift:=xlDown et cela ne fonctionne pas non plus. Savez vous pourquoi car cela fonctionne si je veux insérer juste une cellule ? Merci d'avance.
lolo
Bonjour michdenis, Cela fonctionne. Je n'avais pas mis un & supplementaire dans mon range. J'avais éssayé : Range("A" & Toto : "H" & Toto) et cci ne fonctionnait pas. maintenant je sais pourquoi. Encore merci.
Bonjour Lolo,
Essaie ceci :
Dim Toto As Long Toto = 5 With Range("A" & Toto & ":H" & Toto) .Insert xlShiftDown End With
Salutations!
"lolo" a écrit dans le message de news: 435290be$0$4385$ Bonjour à toutes et à tous,
Sur Feuil1 en D8, je rentre un nombre. En appuyant sur un bouton, je veux insérer une ligne àpartir du nombre rentré en D8.
J'ai essayé : toto = Range("D8").Value toto = toto + 1 Range("A:H" & toto).Select Selection.Insert Shift:=xlDown Pour pouvoir insérer une ligne dans mon tableau qui va de A à H. Mais cela ne fonctionne pas
Et j'ai essayé : toto = Range("D8").Value toto = toto + 1 Rows("A" & toto).Select Selection.Insert Shift:=xlDown et cela ne fonctionne pas non plus. Savez vous pourquoi car cela fonctionne si je veux insérer juste une cellule ? Merci d'avance.
Bonjour michdenis,
Cela fonctionne. Je n'avais pas mis un & supplementaire dans mon range.
J'avais éssayé : Range("A" & Toto : "H" & Toto) et cci ne fonctionnait
pas. maintenant je sais pourquoi.
Encore merci.
Bonjour Lolo,
Essaie ceci :
Dim Toto As Long
Toto = 5
With Range("A" & Toto & ":H" & Toto)
.Insert xlShiftDown
End With
Salutations!
"lolo" <l.maire_nospams_@free.fr> a écrit dans le message de news: 435290be$0$4385$626a54ce@news.free.fr...
Bonjour à toutes et à tous,
Sur Feuil1 en D8, je rentre un nombre.
En appuyant sur un bouton, je veux insérer une ligne àpartir du nombre
rentré en D8.
J'ai essayé :
toto = Range("D8").Value
toto = toto + 1
Range("A:H" & toto).Select
Selection.Insert Shift:=xlDown
Pour pouvoir insérer une ligne dans mon tableau qui va de A à H. Mais
cela ne fonctionne pas
Et j'ai essayé :
toto = Range("D8").Value
toto = toto + 1
Rows("A" & toto).Select
Selection.Insert Shift:=xlDown
et cela ne fonctionne pas non plus.
Savez vous pourquoi car cela fonctionne si je veux insérer juste une
cellule ?
Merci d'avance.
Bonjour michdenis, Cela fonctionne. Je n'avais pas mis un & supplementaire dans mon range. J'avais éssayé : Range("A" & Toto : "H" & Toto) et cci ne fonctionnait pas. maintenant je sais pourquoi. Encore merci.
Bonjour Lolo,
Essaie ceci :
Dim Toto As Long Toto = 5 With Range("A" & Toto & ":H" & Toto) .Insert xlShiftDown End With
Salutations!
"lolo" a écrit dans le message de news: 435290be$0$4385$ Bonjour à toutes et à tous,
Sur Feuil1 en D8, je rentre un nombre. En appuyant sur un bouton, je veux insérer une ligne àpartir du nombre rentré en D8.
J'ai essayé : toto = Range("D8").Value toto = toto + 1 Range("A:H" & toto).Select Selection.Insert Shift:=xlDown Pour pouvoir insérer une ligne dans mon tableau qui va de A à H. Mais cela ne fonctionne pas
Et j'ai essayé : toto = Range("D8").Value toto = toto + 1 Rows("A" & toto).Select Selection.Insert Shift:=xlDown et cela ne fonctionne pas non plus. Savez vous pourquoi car cela fonctionne si je veux insérer juste une cellule ? Merci d'avance.
