AccueilCodesTutorielsForumsEmploiLivresGuide achatConnexion

  • Visual Basic, VB6, VB.NET, VB 2005, VB CodeS-SourceS
  • RSS CodeS-SourceS
  • CodyxBot, le Bot GTalk & MSN qu'il vous faut !
  • Générez des revenus avec vos codes, scripts et tutoriaux
  • Aide à la navigation du site
begin process at 2009 07 06 09:19:03
Vous ne trouvez pas de réponse à votre problème ? Alors posez la question dans le forum. Souvenez-vous qu'il n'y a jamais de question bête, mais rester dans l'ignorance parce que l'on n'ose pas poser une question, ça c'est une erreur !

Sujet : Copier deux cellules dans une cellule EXCEL en vba [ Archives Visual Basic / J'AI BESOIN D'AIDE !!!! :) ] (metek)

mardi 2 août 2005 à 16:34:32 | Copier deux cellules dans une cellule EXCEL en vba

metek
Bonjour!
J'ai quelques soucis en VBA avec une macro!
Je dispose d'un fichier excel que je dois retraité afin d'obtenir un tableau classé!
Je souhaite en fait automatiser le traitement pour plusieurs fichiers!
Dans le premier fichier (celui a traiter) tout est sur une seule colonne.
Or lorsque je récupère ici l'adresse elle se trouve suivant les cas soit sur
deux cellules soit sur une seule voir trois.
J'aimerais donc detecter suivant les cas et recopier tout cela dans mon tableau
mais dans une seule cellule!
Je peux detecter la fin de l'adresse car la cellule au dessous commence par POSTCODE!
Merci pour l'aide,j'espere avoir été clair!
mardi 2 août 2005 à 16:54:17 | Re : Copier deux cellules dans une cellule EXCEL en vba

jhary69

salut,

les cas ou l'adresse est sur plusieurs cellules c'est qu'elle est sur plusieurs lignes ??? (puisque tu n'as qu'une seule colonne).

Si c'est le cas, la ligne de debut de ton adresse est - elle toujours la meme ???

Si oui, lorsque tu arrives sur cette ligne pour la traiter tu fait une boucle do while pour concatener tes lignes ensemble tant que tu n'as pas POSTCODE dans ta cellule ...

A+

Christophe.
mardi 2 août 2005 à 17:04:37 | Re : Copier deux cellules dans une cellule EXCEL en vba

metek

La ligne de debut est toujours la meme donc facile a trouver mais comment fait on pour
concatener j'ai beau chercher et me creuser l'esprit je ne trouve pas.
J'ai le meme resonnement que toi


mardi 2 août 2005 à 17:13:54 | Re : Copier deux cellules dans une cellule EXCEL en vba

jhary69

pour concatener :

dim strTemp as string
dim iLigne as integer

strTemp = ""

iLigne = ta ligne de debut d'adresse

' Si ta colonne c'est pas A tu adaptes ...
do while activesheet.range("A" & iLigne).value <> "POSTCODE"
      strTemp = strTemp & activesheet.range("A" & iLigne).value
      iLigne = iLigne + 1
loop

des que tu atteinds POSTCODE ca quitte la boucle apres tu met le contenu de strTemp dans la cellule que tu veux !

A+

Christophe.

PS : a tester en debug la 1ere fois (suffit d'oublier le iLigne = iLigne + 1 pour boucler à l'infini )
mardi 2 août 2005 à 18:12:47 | Re : Copier deux cellules dans une cellule EXCEL en vba

metek
Merci ca m'avance vraiment enormement (800 fichiers a traiter avant vendredi!)
Allez pour le plaisir je vais oublier iLigne = iLigne + 1  .
Merci enormement!
mardi 2 août 2005 à 23:44:30 | Re : Copier deux cellules dans une cellule EXCEL en vba

metek
Réponse acceptée !
et bien me revoila j'ai quelques problemes avec ta fonction:
Je l'ai donc adapté je te met le code :
Public Sub Search_for_organisation(i, J, k, l, m, n, p, s, t, Ic)
Dim cel As Range
Dim strTemp As String
Dim iLigne As Integer
Sheets("cordis-mo").Select
Range("B1").Select
Set cel = ActiveCell
Nblignes = Range("Nblignes").Value

Sheets("Tableau").Select
Range("A1").Select
Set celtab = ActiveCell

Sheets("Coordinator_list").Select
Range("A1").Select
Set celCoord = ActiveCell

  Sheets("cordis-mo").Select
        iligne = iligne + 4
         cel(iligne).Select
        
         strTemp = ""

        Do While cel(iligne).Value <> "POSTCODE"
         strTemp = strTemp & cel(iligne).Value
       iligne = iligne + 1
Loop

       Sheets("Tableau").Select
      Range(J, 9).Value = strTemp

J'obtiens alors une erreur me disans que l'objet sur la ligne
Do While cel(iligne).Value <> "POSTCODE"
n'existe pas et je n'arrive pas a comprendre pourquoi.

Merci d'avance!



Cette discussion est classé dans : vba, excel, cellule, cellules, seule

Répondre à ce message

Sujets en rapport avec ce message

test sur la selection d'une cellule excel en language VBA [ par jeof ] comment tester sur VBA la selection d'une cellule excel alors que plusieurs cellules ont été selectionnées.Mon problème est le suivant:*je selectionne VBA [ par jeof ] Bonjour,j'ai un programme à réaliser sur excel à l'aide de VBA et mon problème est le suivant:je selectionne à l'aide de Ctrl plusieurs cellules, souv vba-excel cellule variable [ par refaat ] Bonjour à tous,peut etre que je pose ma question dans le mauvais forum mais je ne sais pas comment faire!mon problème est le suivant: je veux récup Excel: protéger des cellules non vides par VBA [ par elge64 ] Bonjour, tout le monde.Je recherche un bout de VBA me permettant de sélectionner toutes les cellules non vides d'une feuille Excel pour les verrouille pb avec #nom? en vba sous excel [ par speedyk62 ] Bonjour,Voilà je modifie ma cellule comme ceci :Sheets("compil_hebdo").Range("E" & m).Value = "=SOMME(Source!E" & l & ":E" & l + 6 & ")"Dans cette cel [VBA / macro excel] écriture sur une cellule précise via la rechercheV/H [ par hazzel ] Bonjour,Voici mon problème, je vouhaiterai colorier une cellule précise d'une autre feuille. Pour se faire, la macro prend en compte le numero de la c Séparer données d'une cellule excel en vba [ par avyrex ] Bonjour a tous,Je voudrais savoir comment faire en vba excel afin que chaque valeur dans la colonne A exemple dans A2: LUN - VEN 7AM - 3 PM , soit tra Cellule cliquable VBA Excel avec SelectionChange [ par podzob56 ] Bonjour,je souhaiterai qu'un msgbox s'affiche lorsque je sélectionne la cellule "C10"voila le code que j'utilise:Private Sub Worksheet_SelectionChange charger cellule excel vers combobox [ par sebcbien67 ] Bonjour, Je travail sous excel 2002 SP3 et je souhaite charger une combobox1 avec le contenu des cellules (C1 à 11), comment fait-on? Attention entre Ligne code VBa pour Excel [ par xavier90 ] Bonjour à tous, Je suis à la recherche de la ligne de code VBa pour Excel 2003 qui me permettrait de sélectionner la ligne dans laquelle se trouve la


Nos sponsors

Sondage...

CalendriCode

Juillet 2009
LMMJVSD
  12345
6789101112
13141516171819
20212223242526
2728293031  

Consulter la suite du CalendriCode

Téléchargements

Logiciels à télécharger sur le même thème :

Comparez les prix Nouvelle version


Nabaztag:tag, lapin communicant + mini-lapin RFID Nano:ztag
Entre 129€ et 130€


Visiter le guide achat

Photothèque Nouveau !

Photo sitges beachPhoto alphabet langue des sourds
Photo corps parfaitPhoto alphabet signes des sourds

Visiter la photothèque


Développement réalisé par Nicolas SOREL (Nix) avec l'aide de : Cyril DURAND et Emmanuel (EBArtSoft), Merci à Vincent pour ses précieux conseils
CodeS-SourceS.com© Toute reproduction même partielle est interdite sauf accord écrit du Webmaster
CodeS-SourceS.com© est une marque déposée tous droits réservés
Temps d'éxécution de la page : 1,061 sec

Google Coop CodeS-SourceS Google Coop CodeS-SourceS


Certaines images présentes sur le site (notament certains avatars) sont issues des collections IconShock, donc si vous souhaitez utiliser ces icons vous devez les acheter, ne les copiez pas et ne utilisez pas dans vos sites et applications sans les avoir commandé.