OVH Cloud OVH Cloud

cellule a recopier

9 réponses
Avatar
Andrée et Romuald
re bonjour tout le monde,
je viens de consulter l'aide microsoft et le forum mais je ne trouve pas mon
bonheur

mon stuuut est simple mais ...

je souhaiterais recopier le contenu d'une cellule dans la cellule voisine
mais par code vba
pour utilisation
ex :"a1"=bonjour alors "b1" = bonjour
etc je vais de "a1" jusque "a35"

laes cellules "b1" a "b35" ne doivent pas contenir de formule car cela
empecherais le bon fonctionnement de l'application
merci pour l'aide
andrée et romuald

9 réponses

Avatar
Norvi
Bonjour,

Par VBA :

Sub RemplissageAuto()
Dim i As Integer
For i = 2 To 35
Cells(1, i).Value = Cells(1, i - 1).Value
Next
End Sub

Bonne journée,

N.
Avatar
JLuc
Je dirais plutot :
Sub RemplissageAuto()
Dim i As Integer
For i = 2 To 35
Cells(i, 2).Value = Cells(i, 1).Value
Next
End Sub


--
JLuc
Avatar
El pequeno
Bonjour.
Pour faire cela en VBA sous Excel il te faudra gerer des boucles (
"instruction")"For each...next".
L'aide VBA "Rubrique conceptuelle/Utilisation d'instruction For each..Next"
te donneras toutes les indications necessaires pour cela.
On accéde à l'aide VBA dans Excel depuis Visual Basic Editor (
Outils/Macro/Visual Basic Editor )

Slts.


re bonjour tout le monde,
je viens de consulter l'aide microsoft et le forum mais je ne trouve pas mon
bonheur

mon stuuut est simple mais ...

je souhaiterais recopier le contenu d'une cellule dans la cellule voisine
mais par code vba
pour utilisation
ex :"a1"=bonjour alors "b1" = bonjour
etc je vais de "a1" jusque "a35"

laes cellules "b1" a "b35" ne doivent pas contenir de formule car cela
empecherais le bon fonctionnement de l'application
merci pour l'aide
andrée et romuald





Avatar
Norvi
Effectivement, j'avais mal lu !!!!
Mais alors ca serait plutôt :

Sub RemplissageAuto()
Dim i As Integer
For i = 1 To 35
Cells(i, 2).Value = Cells(i, 1).Value
Next
End Sub
Avatar
JLuc
Effectivement, j'avais mal lu !!!!
Mais alors ca serait plutôt :

Sub RemplissageAuto()
Dim i As Integer
For i = 1 To 35
Cells(i, 2).Value = Cells(i, 1).Value
Next
End Sub


Decidement ! Heureusement qu'on fait ca a deux lol

--
JLuc

Avatar
JpPradier
Bonjour El pequeno

Pas forcement besoin de boucle pour recopier le contenu :

Range("B1:B35").value=Range("A1:A35).value

ou à la manière AV :

[B1:B35]=[A1:A35]

j-p
Avatar
JLuc
*Bonjour JpPradier*,
Que d'amelioration en une fois ! 8-o
Impossible de faire plus cout ;-)
JpPradier vainqueur par KO lol

Bonjour El pequeno

Pas forcement besoin de boucle pour recopier le contenu :

Range("B1:B35").value=Range("A1:A35).value

ou à la manière AV :

[B1:B35]=[A1:A35]

j-p


--
____
( O | O )
--
_oooO_ JLuc _Oooo_

O-O

Avatar
Andrée et Romuald
merci a tout le monde pour les conseil
mais si je veux utiliser une fonction
pour que cela se fasse dès que j'entre une valeur dans les cellules de la
colonne "a.."


"Andrée et Romuald" a écrit dans le message de news:

re bonjour tout le monde,
je viens de consulter l'aide microsoft et le forum mais je ne trouve pas
mon bonheur

mon stuuut est simple mais ...

je souhaiterais recopier le contenu d'une cellule dans la cellule voisine
mais par code vba
pour utilisation
ex :"a1"=bonjour alors "b1" = bonjour
etc je vais de "a1" jusque "a35"

laes cellules "b1" a "b35" ne doivent pas contenir de formule car cela
empecherais le bon fonctionnement de l'application
merci pour l'aide
andrée et romuald




Avatar
Andrée et Romuald
merci encore pour vos reponses
je viens de comprendre et maintenant apres quelques essais je parviens a
obtenir le
resultat souhaite alors oubliez mon message precedent
et encore merci
bon w-e a tous
andree et romuald

"Andrée et Romuald" a écrit dans le message de news:

re bonjour tout le monde,
je viens de consulter l'aide microsoft et le forum mais je ne trouve pas
mon bonheur

mon stuuut est simple mais ...

je souhaiterais recopier le contenu d'une cellule dans la cellule voisine
mais par code vba
pour utilisation
ex :"a1"=bonjour alors "b1" = bonjour
etc je vais de "a1" jusque "a35"

laes cellules "b1" a "b35" ne doivent pas contenir de formule car cela
empecherais le bon fonctionnement de l'application
merci pour l'aide
andrée et romuald