copie de cellule dans une autre feuille

[creme]

bonjour;

je commence vraiment tout juste en macro vba .

Voilas mon pbs : je voudrais concevoir un module capable de recupérer des information 'du texte' dans une cellule le copier dans un autre feuille de ce classeur . Dans cette colonne de base le texte peu evoluer a ce moment la j'aimerai copier a nouveau cette evolution et la coller a la suite de la premiere.

désolé si je ne suis pas trés clair

merci pour votre aide

Creme

 

[Sylvie]

Bonjour Créme,

en VBA ton problème peut être facilement résolu par un copier coller à partir de la dernière ligne non vide. Donc ce n'est pas un souci de te trouver un code pouvant t'aider et je t'avoue que je m'en sens même capable 😉 .
Joins ton fichier en précisant quelle colonne tu veux copier et où tu veux la copier et je plancherais avec plaisir sur ton problème.

Bonne journée

 

[ChTi160]

Salut creme
Bonjour Sylvie
Bonjour le Forum

en attendant le fichier Joint un exemple simple de transfert avec incrémentation ,de la valeur d'une cellule (B3 de la Feuil1)dans la colonne 'A' d'une autre feuille

bonne Journée [file name=Transfert_20050725084656.zip size=8095]http://www.excel-downloads.com/components/com_simpleboard/uploaded/files/Transfert_20050725084656.zip[/file]

 

[MARIE74]

B) Bonjour a tous et a toutes


Salut creme sylvie40 et chti160

Je m'autorise a utiliser ce fil car j'ai le meme probleme que creme a quelques petites differences pres

Je souhaite dans un classeur A copier 2 cellules D11 et F19 qui sont renseignées dans d'autres classeurs (jusqu'a 6 classeurs) qui sont un copier coller du classeur A

Merci de votre aide

 

[creme]

Bonjour;

merci Chti 160 et bien entendu a tout ceux qui ont participé

cela semble pas mal du tout; je viens de tester ça me plais bien !!
je vais potasser car je vais transférer certainement d'autre cellule de la même ligne .
en somme je vais déclarrer de nouvelles variables car je ne souhaite pas effacer l'ensemble de la ligne .....
en tout les cas merci beaucoup pour cette entre aide précieuse

Crème

 

[creme]

bien denouveau ennuyé !!;o)

voilas ton code et un rajout de ma part mais lorsque je l'execute
ala fin il me réclame un end with a la place du end sub et inversement ....
pourriez vous m'aiguiller

merci
creme

 

[creme]

bien denouveau ennuyé !!;o)

voilas ton code et un rajout de ma part mais lorsque je l'execute
ala fin il me réclame un end with a la place du end sub et inversement ....
pourriez vous m'aiguiller

merci
creme

 

[creme]

suis fatigué en ce moment !! j'en ai oublier de coller le code ,o)


Sub miseajourbroche()
Dim derligne As Integer
Dim datedechangement As Range
Dim WsSource As Worksheet
Dim WsCible As Worksheet
Set WsSource = Worksheets('suivis electrobroche') 'affecte la feuille une a la variable WsSource
With WsSource 'evite de répéter WsSource
Set datedechangement = .Range('D7') 'on affecte à la variable(date de changement) la plage à transferer
'End With
Set WsCible = Worksheets('BROCHE N°142763') 'affecte la feuille deux a la variable WsCible
With WsCible 'evite de répéter WsCible
derligne = .Range('A65536').End(xlUp).Row + 1
.Range('A' & derligne) = datedechangement.Value
End With
Dim QUI As Range
Set WsSource = Worksheets('suivis electrobroche') 'affecte la feuille une a la variable WsSource
With WsSource 'evite de répéter WsSource
Set QUI = .Range('C7') 'on affecte à la variable(QUI) la plage à transferer
'End With
Set WsCible = Worksheets('BROCHE N°142763') 'affecte la feuille deux a la variable WsCible
With WsCible 'evite de répéter WsCible
derligne = .Range('B65536').End(xlUp).Row + 1
.Range('B' & derligne) = QUI.Value
End With
End Sub

 

[creme]

suis fatigué en ce moment !! j'en ai oublier de coller le code ,o)


Sub miseajourbroche()
Dim derligne As Integer
Dim datedechangement As Range
Dim WsSource As Worksheet
Dim WsCible As Worksheet
Set WsSource = Worksheets('suivis electrobroche') 'affecte la feuille une a la variable WsSource
With WsSource 'evite de répéter WsSource
Set datedechangement = .Range('D7') 'on affecte à la variable(date de changement) la plage à transferer
'End With
Set WsCible = Worksheets('BROCHE N°142763') 'affecte la feuille deux a la variable WsCible
With WsCible 'evite de répéter WsCible
derligne = .Range('A65536').End(xlUp).Row + 1
.Range('A' & derligne) = datedechangement.Value
End With
Dim QUI As Range
Set WsSource = Worksheets('suivis electrobroche') 'affecte la feuille une a la variable WsSource
With WsSource 'evite de répéter WsSource
Set QUI = .Range('C7') 'on affecte à la variable(QUI) la plage à transferer
'End With
Set WsCible = Worksheets('BROCHE N°142763') 'affecte la feuille deux a la variable WsCible
With WsCible 'evite de répéter WsCible
derligne = .Range('B65536').End(xlUp).Row + 1
.Range('B' & derligne) = QUI.Value
End With
End Sub

 

[ChTi160]

re
voila comment j'ai modifié ta macro pour transferer tes deux cellules

Sub miseajourbroche()
Dim derligne As Integer
Dim datedechangement As Range
Dim QUI As Range
Dim WsSource As Worksheet
Dim WsCible As Worksheet
Set WsSource = Worksheets('suivis electrobroche') 'affecte la feuille suivis electrobroche à la variable WsSource
With WsSource 'evite de répéter WsSource
Set datedechangement = .Range('D7') 'on affecte à la variable(date de changement) la plage à transferer
Set QUI = .Range('C7')
End With
Set WsCible = Worksheets('BROCHE N°142763') 'affecte la feuille BROCHE N°142763 à la variable WsCible
With WsCible 'evite de répéter WsCible
derligne = .Range('A65536').End(xlUp).Row + 1
.Range('A' & derligne) = datedechangement.Value
.Range('B' & derligne) = QUI.Value
End With
End Sub

il y a aussi d'autres manières de procèder
bonne Soirée

 

[creme]

merci encore Chti160

et je peux continuer comme cela pour d'autre cellule
je présume maintenant

en tout ca s c'est plus structuré
merci encore

creme

 

[ChTi160]

Salut creme
bonsoir le Fil
bonsoir le Forum
si tu as des problèmes, tu joins un fichier avec un exemple de ce que tu as et ce que tu veux ,c'est plus pratique pour aider

bonne Soirée

 

[creme]

Merci Chti160
je vais avoir d'autre suggestion d'ici peux je te joints mon fichier de base
merci encore
suposons que je crais une feuille pour chaque broche afin d'archiver les pbs rencontré il va me falloir comparer la date de la ligne précedente pour ne pas empiler .Car un seul bp va me permettre de mettre a jour le fichier j'en fais encore appel a tes connaissances

merci d'avance

creme

 

[ChTi160]

re
oui prépare un fichier (Zip -50 ko titre sans espace et sans caractères spéciaux)
prend ton temps on est là lol

 

[creme]

mais il est ou mon fichier !!!