[Excel VBA] Macro Spéciale pour concaténation

Question

Besoin d'aide !!

Bonjour à tous, je vois qu'un certain nombre d'entres vous maitrisent Excel et le VBA, alors j'aurais besoin de votre aide car je suis biologiste et mes connaissances en informatique sont limitées...

J'ai un tableau excel du genre
>nomproteine1
ABC
DE
>nomproteine2
GHIJ
KLM
NO
>etc


J'aimerai concaténer la séquence de chacune des protéines dans une cellule (soit dessous, soit à côté du nom, de préférence) et effacer les cellules ayant servi à la concaténation pour avoir  :

>nomproteine1
ABCDE
>nomproteine2
GHIJKLMNO
>etc

En sachant que, (et oui il faut bien compliquer, c'est pour ça que je me casse les dents dessus) la séquence est de taille variable et le seul point commun est le > en début de chaque nouveau nom...

Celui qui arrivera à me pondre quelquechose aura droit à.....une deuxième question !!

Merci d'avance !

Anne

Papou93 · Accepted Answer

Voici la macro modifiée pour effacer les cellules d'origine:

Sub NomProteine()
  With Sheets(1)
    For n = 1 To .Range("a65536").End(xlUp).Row
      If Left$(Cells(n, 1), 1) = ">" Then lg = n
      If Not Left$(Cells(n, 1), 1) = ">" And lg > 0 Then
        Cells(lg, 2) = Cells(lg, 2) & Cells(n, 1)
        Cells(n, 1) = ""
      End If
    Next
  End With
End Sub
Cordialement.

champvi · Answer

tu marques dans une case '=C1 & D1' par exemple. Ca fait ca betement mais ca concatene 2 cases.
pour plus complexe faut toucher à VBA... donc tente avec ca d'abord

Papou93 · Answer

Bonjour Anne et Champvi,

Voici une macro à insérer dans un module de code :

Sub NomProteine()
  With Sheets(1)
    For n = 1 To .Range("a65536").End(xlUp).Row
      If Left$(Cells(n, 1), 1) = ">" Then lg = n
      If Not Left$(Cells(n, 1), 1) = ">" And lg > 0 Then Cells(lg, 2) = Cells(lg, 2) & Cells(n, 1)
    Next
  End With
End Sub
Cette macro concatène la séquence des protéines dans la cellule immédiatement à droite du nom.
Elle fonctionne quelle que soit la ligne de départ de la liste.
Il est facile d'adapter la position des colonnes en fonction des besoins.

Espérant avoir été utile.

Cordialement

champvi · Answer

tu peux tenter un truc du style

ActiveSheet.Range("E1").Select 'se place en E1
do while activecell.value = "" 'boucle tant que la cellule est pas vide
activecell.value = activecell.offset(0,-2) & activecell.offset (0,-1) 'concatene les 2 cases de gauche 

activecell.offset (1,0).select 'se depalce d'une case vers le bas
loop

Sir_DEC · Answer

Ou sans utiliser VB, disons qu'on a le tableau suivant :

A1 : nomprotéine1
A2...Ax : les trucs gens "ABC", "DE" et compagnie
Ax+1 : nomprotéine2

En Bx-1 : =Ax & Bx
Ensuite il suffit de développer en remontant jusqu'à la ligne du nom. (En B1 : =A2 & B2)

Bien sûr c'est faisable en VB, mais cette solution l'écarte :)

[Excel VBA] Macro Spéciale pour concaténation

5 réponses

Discussions similaires

Newsletters