Forum |  HardWare.fr | News | Articles | PC | S'identifier | S'inscrire | Shop Recherche
1740 connectés 

  FORUM HardWare.fr
  Programmation
  VB/VBA/VBS

  ptit question facile VBA

 


 Mot :   Pseudo :  
 
Bas de page
Auteur Sujet :

ptit question facile VBA

n°448365
BeBo*
Posté le 04-07-2003 à 09:27:29  profilanswer
 

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

mood
Publicité
Posté le 04-07-2003 à 09:27:29  profilanswer
 

n°448434
k1200
Posté le 04-07-2003 à 10:38:52  profilanswer
 

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

n°448742
BeBo*
Posté le 04-07-2003 à 13:59:32  profilanswer
 

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

n°448773
BeBo*
Posté le 04-07-2003 à 14:40:26  profilanswer
 

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
 

n°448788
ceyquem
E falso sequitur quodlibet
Posté le 04-07-2003 à 14:54:55  profilanswer
 

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
n°448839
BeBo*
Posté le 04-07-2003 à 15:42:36  profilanswer
 

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

n°448864
ceyquem
E falso sequitur quodlibet
Posté le 04-07-2003 à 16:09:38  profilanswer
 


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...
 
++

n°448868
BeBo*
Posté le 04-07-2003 à 16:13:56  profilanswer
 

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:


Aller à :
Ajouter une réponse
  FORUM HardWare.fr
  Programmation
  VB/VBA/VBS

  ptit question facile VBA

 

Sujets relatifs
[VBA] Excel : comment tester la "visibilité" d'une cellule ?Surnaturel => conversion de nombres Access/VBA, incompréhensible !!!
Question aux developpeurs : limites de programmationQuestion sur les expressions régulières en PHP
[VBA et Access] Question sur un morceau de code !question bete sur les liens et les images
2 question sur les forms[VBA/VB] Utilisation d'une dll - Localisation de la dll
[VBA] Access Lier formulaire et sous-formulaire 
Plus de sujets relatifs à : ptit question facile VBA


Copyright © 1997-2022 Hardware.fr SARL (Signaler un contenu illicite / Données personnelles) / Groupe LDLC / Shop HFR