Comment obtenir le resultat de mes cellules

[rainbow69006]

Bonjour

J'ai joint un fichier avec toutes les explication c'est plus simple

Merci de votre aide

 

[matthieu33]

Re : Comment obtenir le resultat de mes cellules

Bonjour Rainbow69006,

Je te propose une solution avec du VBA.

@+

 

[rainbow69006]

Re : Comment obtenir le resultat de mes cellules

Grr sa marchait mais sa ne marche plus
il y a un message d'erreur

J'ai mis mon fichier en annexe . je ne trouve pas l'erreur

 

[matthieu33]

Re : Comment obtenir le resultat de mes cellules

Bonsoir,

Cela marche parfaitement.
Je pense qu'il manquait le bouton pour afficher le résultat.
Je te redonne le fichier avec l'ajout du bouton.

@+

 

[rainbow69006]

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

 

[matthieu33]

Re : Comment obtenir le resultat de mes cellules

Re bonjour,

Chez moi, cela fonctionne correctement même en cliquant plusieurs fois.
Peux-tu me faire parvenir ton fichier ?

Merci
@+

 

[rainbow69006]

Re : Comment obtenir le resultat de mes cellules

En fait sa marche mais si tu met plus de 5 valeurs sur la meme ligne eh bien la chez moi sa ne marche plus.

 

[matthieu33]

Re : Comment obtenir le resultat de mes cellules

D'accord, je comprends.
En fait, dans le tableau d'affichage, il faut autant de colonnes que dans le tableau initial.

Par conséquent, il faut changer la ligne d'effacement du contenu des valeurs par :

Range("BB129:DB" & Range("BB" & Cells.Rows.Count).End(xlUp).Row).ClearContents

@+