Bonsoir,
je reste bloqué sur un problème très simple et
pourtant je n'ai pas trouvé une réponse dans
mes fichiers "VBA".
Exemple:
J'ai 2 feuilles du même fichier "A" et "B"
Dans la feuille "B" la plage A1:A5 contient les
nombres 1 à 5
En appliquant les 3 instruction suivantes
j'obtiens sur la feuille "A" en A1:A3 "1" "2" "2"
mais les "4" "5" manquent,c'est à dire la 3.instruction
(sans générer un message d'erreur) laisse des blancs.
sub try3 ()
Sheets("A").Range("A1") = Sheets("B").Range("A1")
Sheets("A").Range("A2:A3") = Sheets("B").Range("A2")
Sheets("A").Range("A4:A5") = Sheets("B").Range("A4:A5")
end sub
Comment transfère-t-on alors des plages de données
d'une feuille à l'autre (sans passer par le copier-coller,bien-sûr)
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
garnote
Salut JeNeVois,
Essaie ceci : Sub try3() Sheets("A").Range("A1") = Sheets("B").Range("A1").Value Sheets("A").Range("A2:A3") = Sheets("B").Range("A2").Value Sheets("A").Range("A4:A5") = Sheets("B").Range("A4:A5").Value End Sub
Serge
"JeNeVois" wrote in message news:
Bonsoir, je reste bloqué sur un problème très simple et pourtant je n'ai pas trouvé une réponse dans mes fichiers "VBA".
Exemple: J'ai 2 feuilles du même fichier "A" et "B" Dans la feuille "B" la plage A1:A5 contient les nombres 1 à 5 En appliquant les 3 instruction suivantes j'obtiens sur la feuille "A" en A1:A3 "1" "2" "2" mais les "4" "5" manquent,c'est à dire la 3.instruction (sans générer un message d'erreur) laisse des blancs.
sub try3 () Sheets("A").Range("A1") = Sheets("B").Range("A1") Sheets("A").Range("A2:A3") = Sheets("B").Range("A2") Sheets("A").Range("A4:A5") = Sheets("B").Range("A4:A5") end sub
Comment transfère-t-on alors des plages de données d'une feuille à l'autre (sans passer par le copier-coller,bien-sûr)
Merci
Salutations
Salut JeNeVois,
Essaie ceci :
Sub try3()
Sheets("A").Range("A1") = Sheets("B").Range("A1").Value
Sheets("A").Range("A2:A3") = Sheets("B").Range("A2").Value
Sheets("A").Range("A4:A5") = Sheets("B").Range("A4:A5").Value
End Sub
Serge
"JeNeVois" <JeNeVois@discussions.microsoft.com> wrote in message
news:A2D61EFC-3A8A-4E49-ADEB-6F8EE70DDF3C@microsoft.com...
Bonsoir,
je reste bloqué sur un problème très simple et
pourtant je n'ai pas trouvé une réponse dans
mes fichiers "VBA".
Exemple:
J'ai 2 feuilles du même fichier "A" et "B"
Dans la feuille "B" la plage A1:A5 contient les
nombres 1 à 5
En appliquant les 3 instruction suivantes
j'obtiens sur la feuille "A" en A1:A3 "1" "2" "2"
mais les "4" "5" manquent,c'est à dire la 3.instruction
(sans générer un message d'erreur) laisse des blancs.
sub try3 ()
Sheets("A").Range("A1") = Sheets("B").Range("A1")
Sheets("A").Range("A2:A3") = Sheets("B").Range("A2")
Sheets("A").Range("A4:A5") = Sheets("B").Range("A4:A5")
end sub
Comment transfère-t-on alors des plages de données
d'une feuille à l'autre (sans passer par le copier-coller,bien-sûr)
Essaie ceci : Sub try3() Sheets("A").Range("A1") = Sheets("B").Range("A1").Value Sheets("A").Range("A2:A3") = Sheets("B").Range("A2").Value Sheets("A").Range("A4:A5") = Sheets("B").Range("A4:A5").Value End Sub
Serge
"JeNeVois" wrote in message news:
Bonsoir, je reste bloqué sur un problème très simple et pourtant je n'ai pas trouvé une réponse dans mes fichiers "VBA".
Exemple: J'ai 2 feuilles du même fichier "A" et "B" Dans la feuille "B" la plage A1:A5 contient les nombres 1 à 5 En appliquant les 3 instruction suivantes j'obtiens sur la feuille "A" en A1:A3 "1" "2" "2" mais les "4" "5" manquent,c'est à dire la 3.instruction (sans générer un message d'erreur) laisse des blancs.
sub try3 () Sheets("A").Range("A1") = Sheets("B").Range("A1") Sheets("A").Range("A2:A3") = Sheets("B").Range("A2") Sheets("A").Range("A4:A5") = Sheets("B").Range("A4:A5") end sub
Comment transfère-t-on alors des plages de données d'une feuille à l'autre (sans passer par le copier-coller,bien-sûr)
Merci
Salutations
JeNeVois
Merci pour la réponse ! En effet, c'est cela ! Cela m'étonne un peu car pour les 2 premières instructions on peut, en l'occurence, renoncer à ".Value" , mais pas pour la troisième.
Bon weekend :)
Salut JeNeVois,
Essaie ceci : Sub try3() Sheets("A").Range("A1") = Sheets("B").Range("A1").Value Sheets("A").Range("A2:A3") = Sheets("B").Range("A2").Value Sheets("A").Range("A4:A5") = Sheets("B").Range("A4:A5").Value End Sub
Serge
"JeNeVois" wrote in message news:
Bonsoir, je reste bloqué sur un problème très simple et pourtant je n'ai pas trouvé une réponse dans mes fichiers "VBA".
Exemple: J'ai 2 feuilles du même fichier "A" et "B" Dans la feuille "B" la plage A1:A5 contient les nombres 1 à 5 En appliquant les 3 instruction suivantes j'obtiens sur la feuille "A" en A1:A3 "1" "2" "2" mais les "4" "5" manquent,c'est à dire la 3.instruction (sans générer un message d'erreur) laisse des blancs.
sub try3 () Sheets("A").Range("A1") = Sheets("B").Range("A1") Sheets("A").Range("A2:A3") = Sheets("B").Range("A2") Sheets("A").Range("A4:A5") = Sheets("B").Range("A4:A5") end sub
Comment transfère-t-on alors des plages de données d'une feuille à l'autre (sans passer par le copier-coller,bien-sûr)
Merci
Salutations
Merci pour la réponse ! En effet, c'est cela !
Cela m'étonne un peu car pour les 2 premières
instructions on peut, en l'occurence, renoncer à
".Value" , mais pas pour la troisième.
Bon weekend :)
Salut JeNeVois,
Essaie ceci :
Sub try3()
Sheets("A").Range("A1") = Sheets("B").Range("A1").Value
Sheets("A").Range("A2:A3") = Sheets("B").Range("A2").Value
Sheets("A").Range("A4:A5") = Sheets("B").Range("A4:A5").Value
End Sub
Serge
"JeNeVois" <JeNeVois@discussions.microsoft.com> wrote in message
news:A2D61EFC-3A8A-4E49-ADEB-6F8EE70DDF3C@microsoft.com...
Bonsoir,
je reste bloqué sur un problème très simple et
pourtant je n'ai pas trouvé une réponse dans
mes fichiers "VBA".
Exemple:
J'ai 2 feuilles du même fichier "A" et "B"
Dans la feuille "B" la plage A1:A5 contient les
nombres 1 à 5
En appliquant les 3 instruction suivantes
j'obtiens sur la feuille "A" en A1:A3 "1" "2" "2"
mais les "4" "5" manquent,c'est à dire la 3.instruction
(sans générer un message d'erreur) laisse des blancs.
sub try3 ()
Sheets("A").Range("A1") = Sheets("B").Range("A1")
Sheets("A").Range("A2:A3") = Sheets("B").Range("A2")
Sheets("A").Range("A4:A5") = Sheets("B").Range("A4:A5")
end sub
Comment transfère-t-on alors des plages de données
d'une feuille à l'autre (sans passer par le copier-coller,bien-sûr)
Merci pour la réponse ! En effet, c'est cela ! Cela m'étonne un peu car pour les 2 premières instructions on peut, en l'occurence, renoncer à ".Value" , mais pas pour la troisième.
Bon weekend :)
Salut JeNeVois,
Essaie ceci : Sub try3() Sheets("A").Range("A1") = Sheets("B").Range("A1").Value Sheets("A").Range("A2:A3") = Sheets("B").Range("A2").Value Sheets("A").Range("A4:A5") = Sheets("B").Range("A4:A5").Value End Sub
Serge
"JeNeVois" wrote in message news:
Bonsoir, je reste bloqué sur un problème très simple et pourtant je n'ai pas trouvé une réponse dans mes fichiers "VBA".
Exemple: J'ai 2 feuilles du même fichier "A" et "B" Dans la feuille "B" la plage A1:A5 contient les nombres 1 à 5 En appliquant les 3 instruction suivantes j'obtiens sur la feuille "A" en A1:A3 "1" "2" "2" mais les "4" "5" manquent,c'est à dire la 3.instruction (sans générer un message d'erreur) laisse des blancs.
sub try3 () Sheets("A").Range("A1") = Sheets("B").Range("A1") Sheets("A").Range("A2:A3") = Sheets("B").Range("A2") Sheets("A").Range("A4:A5") = Sheets("B").Range("A4:A5") end sub
Comment transfère-t-on alors des plages de données d'une feuille à l'autre (sans passer par le copier-coller,bien-sûr)
Merci
Salutations
bourby
bonsoir,
dans la 3è ligne: Sheets("A").Range("A4:A5") = Sheets("B").Range("A4:A5").value
La propriété par défaut de Range est value; mais visiblement, dans ce cas, il a besoin qu'on le lui précise.
Cordialement
Bourby
JeNeVois wrote:
Bonsoir, je reste bloqué sur un problème très simple et pourtant je n'ai pas trouvé une réponse dans mes fichiers "VBA".
Exemple: J'ai 2 feuilles du même fichier "A" et "B" Dans la feuille "B" la plage A1:A5 contient les nombres 1 à 5 En appliquant les 3 instruction suivantes j'obtiens sur la feuille "A" en A1:A3 "1" "2" "2" mais les "4" "5" manquent,c'est à dire la 3.instruction (sans générer un message d'erreur) laisse des blancs.
sub try3 () Sheets("A").Range("A1") = Sheets("B").Range("A1") Sheets("A").Range("A2:A3") = Sheets("B").Range("A2") Sheets("A").Range("A4:A5") = Sheets("B").Range("A4:A5") end sub
Comment transfère-t-on alors des plages de données d'une feuille à l'autre (sans passer par le copier-coller,bien-sûr)
Merci
Salutations
bonsoir,
dans la 3è ligne:
Sheets("A").Range("A4:A5") = Sheets("B").Range("A4:A5").value
La propriété par défaut de Range est value; mais visiblement, dans ce
cas, il a besoin qu'on le lui précise.
Cordialement
Bourby
JeNeVois wrote:
Bonsoir,
je reste bloqué sur un problème très simple et
pourtant je n'ai pas trouvé une réponse dans
mes fichiers "VBA".
Exemple:
J'ai 2 feuilles du même fichier "A" et "B"
Dans la feuille "B" la plage A1:A5 contient les
nombres 1 à 5
En appliquant les 3 instruction suivantes
j'obtiens sur la feuille "A" en A1:A3 "1" "2" "2"
mais les "4" "5" manquent,c'est à dire la 3.instruction
(sans générer un message d'erreur) laisse des blancs.
sub try3 ()
Sheets("A").Range("A1") = Sheets("B").Range("A1")
Sheets("A").Range("A2:A3") = Sheets("B").Range("A2")
Sheets("A").Range("A4:A5") = Sheets("B").Range("A4:A5")
end sub
Comment transfère-t-on alors des plages de données
d'une feuille à l'autre (sans passer par le copier-coller,bien-sûr)
dans la 3è ligne: Sheets("A").Range("A4:A5") = Sheets("B").Range("A4:A5").value
La propriété par défaut de Range est value; mais visiblement, dans ce cas, il a besoin qu'on le lui précise.
Cordialement
Bourby
JeNeVois wrote:
Bonsoir, je reste bloqué sur un problème très simple et pourtant je n'ai pas trouvé une réponse dans mes fichiers "VBA".
Exemple: J'ai 2 feuilles du même fichier "A" et "B" Dans la feuille "B" la plage A1:A5 contient les nombres 1 à 5 En appliquant les 3 instruction suivantes j'obtiens sur la feuille "A" en A1:A3 "1" "2" "2" mais les "4" "5" manquent,c'est à dire la 3.instruction (sans générer un message d'erreur) laisse des blancs.
sub try3 () Sheets("A").Range("A1") = Sheets("B").Range("A1") Sheets("A").Range("A2:A3") = Sheets("B").Range("A2") Sheets("A").Range("A4:A5") = Sheets("B").Range("A4:A5") end sub
Comment transfère-t-on alors des plages de données d'une feuille à l'autre (sans passer par le copier-coller,bien-sûr)