Vba incrémentation Résolu

Question

Bonjour, 

j'aimerais améliorer une macro en incrémentant les cellules concernant la concaténation de variables.
Voilà mon code :

    Texte = ""


    For Each Cellule In Range(Selection, Selection.Offset(0, 110))
 
        If Cellule.Value <> "" Then
        Texte = Texte & " " & Cellule.Value & ","
        End If
        
    
    Next Cellule

            Cells(ActiveCell.Row, 121).Formula = Texte
            'Passe à la ligne suivante
            Selection.Offset(1, 0).Select


J'ai tout essayé, du Do en passant par for, rien n'y fait.
Pouvez-vous m'aider svp

Christof422 · Answer

Est ce que tu as déclarer les variables texte, cellule...

Christof422 · Answer

Dim texte As String
Dim a As Integer

For a = 1 To 120
If Cells(1, a) <> "" Then
texte = texte & Cells(1, a).Value
End If
Next a

Cells(2, 1) = texte

michel_m · Answer

Bonjour   
Excusez l'incruste   

Vu le nombre de cellule à traiter (110x 140 =15400), il est préférable de travailler en mémoire RAM avec des variables- tableaux et non sur la feuille pour effectuer les traitements (gain de temps considérable)  

proposition de macro   
Sub ecrire_texte()   
Dim Lig As Integer, Col As Integer, Derlig As Integer   
Dim T_in(), C_lig As Byte, C_col As Byte, T_out() 
Dim Texte As String   

'initialisations   
Application.ScreenUpdating = False   
Lig = ActiveCell.Row   
Col = ActiveCell.Column   
Derlig = Columns(Col).Find("*", , , , , xlPrevious).Row   
T_in = Range(Cells(Lig, Col), Cells(Derlig, Col + 109)).Value   
ReDim T_out(1 To Derlig - Lig + 1)   

'traitement du texte en RAM   
For C_lig = 1 To UBound(T_in)   
     Texte = ""   
     For C_col = 1 To 110   
          If T_in(C_lig, C_col) <> "" Then Texte = Texte & " " & T_in(C_lig, C_col) & ","   
     Next   
     ' données traitées   
     T_out(C_lig) = Texte   
Next   

'restitution   
Cells(Lig, Col + 121).Resize(UBound(T_out), 1) = Application.Transpose(T_out)   
End Sub   

 Michel

Vba incrémentation

3 réponses

Discussions similaires

Newsletters