Re : Comment obtenir le resultat de mes cellules
Re Bonjour
Pour toi est ce que ce code te parait juste?
mon tableau de donnee est compris entre B129 et AY136
et le tableau ou sa affiche le resultat est compris entre BB129 et BF136.
En fait cela marche une fois mais quand je reclic une seconde fois sa n'ecrit plus dans le tableau de resultat mais a coter.
Private Sub CommandButton1_Click()
Dim lgCol As Long
Dim lgLig As Long
' Effacer les colonnes de BB a BF
Range("BB129:BF" & Range("BB" & Cells.Rows.Count).End(xlUp).Row).ClearContents
' Boucle de la 2eme à la 51me colonne
For lgCol = 2 To 51
' Boucle de la 129eme à la 136 ligne
For lgLig = 129 To 136
' Si la valeur de la cellule est remplie
If Cells(lgLig, lgCol) <> "" Then
If Range("BB" & lgLig) = "" Then
Range("BB" & lgLig) = Cells(lgLig, lgCol)
Else
Cells(lgLig, Cells(lgLig, Cells.Columns.Count).End(xlToLeft).Column + 1) = Cells(lgLig, lgCol)
End If
End If
Next lgLig
Next lgCol
End Sub