ptit question facile VBA

ptit question facile VBA - VB/VBA/VBS - Programmation

Marsh Posté le 04-07-2003 à 09:27:29    

salut,  
 
J'ai besoin d'un petit coup de main:
 
J'aimerais copier la cellule B10 d'une de mes feuille excel vers la cellule A10 de la deuxièemen feuille d'excel (dans le meme fichier).
Le petit bout de code en vba !?
 
je sais c con....mais j'my connait ke dalle
 
merci d'avance

Reply

Marsh Posté le 04-07-2003 à 09:27:29   

Reply

Marsh Posté le 04-07-2003 à 10:38:52    

sheets(2).range("A10" ) = sheets(1).range("B10" )
 
;)

Reply

Marsh Posté le 04-07-2003 à 13:59:32    

THANKS
 
c court mais bon........... :jap:

Reply

Marsh Posté le 04-07-2003 à 14:40:26    

j'aimerais maintenant améliorer mon truc! :pt1cable:  
 
J'aimerai k'il copie les cellules vers la feuille 2 ok....mais k'il l'ajoute à la suite de ce qu'il y a déjà!
 
Comment je fais ca avec un compteur ou je test si la cellule est plein ??
 
please help !
 
bye
 

Reply

Marsh Posté le 04-07-2003 à 14:54:55    

sheets(2).range("A10" ).value = sheets(2).range("A10" ).value & sheets(1).range("B10" ).value
 
si c'est du texte ou essaie :
 
sheets(2).range("A10" ).value = sheets(2).range("A10" ).text & sheets(1).range("B10" ).text


Message édité par ceyquem le 04-07-2003 à 14:55:34
Reply

Marsh Posté le 04-07-2003 à 15:42:36    

ok merci mais là il me les ajoute à le suite dans la meme cellule .
J'aimerais k'il les ajoute cellule apres cellule !
pour en faire un colonne récatiptulative ! :p

Reply

Marsh Posté le 04-07-2003 à 16:09:38    


Dim i As Integer
Dim strAdr As String
 
i=1
 
strAdr = "A" & Trim(Str(i))
sheets(2).range(strAdr).value = sheets(1).range("B10" )
i=i+1
 
strAdr = "A" & Trim(Str(i))
sheets(2).range(strAdr).value = sheets(1).range("B11" )
 
etc
 


 
si tu veux, tu peux aussi faire une boucle, mais je ne peux pas en dire plus car je ne vois pas comment la feuille "source" est organisée...
 
++

Reply

Marsh Posté le 04-07-2003 à 16:13:56    

merci je vais mater ce bout de code !
 
j'avais aussi penser ave cune boucle....ma feuille source c'est du bordel...mieux vaut pas ke je te la montre ! :ange:

Reply

Sujets relatifs:

Leave a Replay

Make sure you enter the(*)required information where indicate.HTML code is not allowed