Discussion :

[damdam78]

Bonjour,

Je suis débutant en VBA et je dois modifier un programme pour réaliser la fonction suivante :
J'ai un tableau Excel qui est rempli avec un programme en VBA. Certaines cellules sont remplies par un caractère.
Je dois créer un cellule en fin de tableau avec tout ces caractères concaténé (pour former une phrase).
Pouvez-vous m'expliquer la démarche, ou si j'ai mal lu, un tuto ou une faq qui pourrai m'aider ?

Je vous remercie par avance pour votre aide !!

Damien

[fred65200]

bonjour

un tutoriel vb, le principe est le même en vba, personnellement, je préfère l'eperluette (&).
cordialement

[ouskel'n'or]

Plusieurs questions : Tes caractères sont-ils sur une même colonne ou sur plusieurs, sur une seule ligne ou su plusieurs ? Quelle est leur organisation pour obtenir ta phrase ? Lecture par ligne, par colonne ?
Le principe : Lire ton tableau ligne par ligne, colonne par colonne et ajouter chaque caractère à ta phrase. Ou l'inverse si l'organisation est colonne par colonne.
Ligne par ligne, ça donnerait ça (d'après les éléments que tu donnes)

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
Sub test()
Dim cell as range, Phrase as string
     for each cell in range(Feuil1.usedRange.cells.address)
            Phrase = Phrase & cell
     next
msgbox Phrase
end Sub

Bonne journée

(Bonjour Fred, je trouve ravissant le mot "eperluette"... Dommage, j'ai sorti le Robert et je ne l'ai pas trouvé Je fais comment pour le replacer dans la conversation ?)

[damdam78]

Mes caractères se trouvent sur une même ligne, par contre je dois les selectionner suivant la valeur qu'il y a sur une ligne au dessus.
Pour être plus clair : sur une première ligne de ma feuille excel, j'ai des titres de colonne me disant si la colonne contient un caractère ou non.
Quelques lignes au dessous, j'ai mes caractères (sur une meme ligne) dans chaque cellule séparé.
Donc je pense qu'il faudrai que je fasse une condition du type

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
 
pour chaque colonne de 1 à 11
     si ligne 3 possède le mot "character"
          alors enregistré le caractère de la ligne 5 dans Phrase
afficher Phrase à la colonne 12 ligne 5

J'espère que mon semblant d'algorithme est assez clair...

Merci pour votre aide !!!

Damien

[ouskel'n'or]

Si tes données sont sur ta ligne 5, tes entêtes sur la ligne 1, ça pourrait donner ça :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
Sub Test()
Dim plage As String, cell As Range, phrase As String
    plage = Range(Feuil1.UsedRange.Cells.Address).Address
    dernierecolonne = Split(Range(Feuil1.UsedRange.Cells.Address).Address, "$")(3)
    For Each cell In Range("A1:" & dernierecolonne & 1)
        If cell <> "" Then _
            phrase = phrase & cell.Offset(4, 0)
    Next
    MsgBox phrase
End Sub

Tu dis, mais la prochaine fois, expose ton pb en entier dès le premier post
A+