VBA Boucle copie/Colle

et
3. Que doit on alors mettre dans la feuille Code (colonne Code, colonne Qte

Plus correct, remplaces la procedure OK par celle ci

Public Sub OK()
Dim liFR As Long, lifinFR As Long, TC(), s As String, nbCod As Long, q As Long
With Sheets(FR)
  lifinFR = .Cells(Rows.Count, coCodFR).End(xlUp).Row
  nbCod = 0
  For liFR = lidebFR To lifinFR
    s = .Cells(liFR, coCodFR).Value
    q = .Cells(liFR, coCodFR + 1)
    If q <> 0 Then
    nbCod = nbCod + 1
      ReDim Preserve TC(1 To nbCod)
      s = s & "," & """" & q & """" & "," & """"""
      TC(nbCod) = s
    End If
  Next liFR
End With
Sheets(FC).Cells(lidebFC, coCodFC).Resize(nbCod, 1) = Application.Transpose(TC)
End Sub

Cdlmnt

Je te remercie !

Juste quand je lance il me dit que j'ai une erreur :

Public Sub OK()
Dim liTC As Long, lifinFR As Long, TC(), s As String, nbCod As Long, q As Long
With Sheets(FR)
  lifinFR = .Cells(Rows.Count, coCodFR).End(xlUp).Row
  nbCod = lifinFR - lidebFR - 1
  ReDim TC(1 To nbCod)
  For liTC = 1 To nbCod
    s = .Cells(liTC + lidebFR - 1, coCodFR).Value
    q = .Cells(liTC + lidebFR - 1, coCodFR + 1)
    If q <> 0 Then
      s = s & "," & """" & q & """" & "," & """"""
      TC(liTC) = s
    End If
  Next liTC
End With
Sheets(FC).Cells(lidebFC, coCodFC).Resize(nbCod, 1) = Application.Transpose(TC)
End Sub

Sur la ligne en Gras ! ^^
Sinon merci beaucoup c'est gentil !

1. Juste quand je lance il me dit que j'ai une erreur :
sur mon fichier (lui chez moi, il fonctionne) ou sur le tien
as tu bien recopié et adapté les valeurs des constantes (nom des feuilles en particulier)
Public Const FR = "Résultat"
Public Const coCodFR = 2
Public Const lidebFR = 3

Public Const FC = "Codes"
Public Const coCodFC = 1
Public Const lidebFC = 2

2. mais prend plutôt le code du message #12 (plus propre)

C'est Bon ça marche !! Merci beaucoup !
Juste si je peux te poser 2 autres questions, parce que j'aimerais me débrouiller pour faire la suite de mon programme, j'aurais donc voulue savoir pour le tableau OBMC comment je peux le programmer pour avoir le même résultat que tu as fais? Car la je peux pas fixer la cellule de départ comme elle est variable en fonction du tableau Gaine dans l'onglet "codes". Vois tu ou je veux en venir ?

Et mon autre question c'est, où as tu appris à programmer ?

Euh si je te pose cette question c'est parce que j'aimerais bien apprendre de façon concrète également, si tu as appris sur internet par exemple, je veux bien tes sources ou autres.

Sinon, là tu m'as programmé mon tableau Gaine qui me copie et modifie le texte en le collant dans 'l'onglet "codes" si la valeur du nombre est supérieur à 1, pour mes autres tableaux ( par exemple le tableau "OBMC") je veux faire la même chose que tu as fais pour les gaines mais mettre le résultat à la suite des codes de gaines dans l'onglet "codes". Le format reste le même c'est à dire du type : CODE,"","NOMBRE",""

En gros c'est un logiciel qui m'évite de recopier tous les codes manuellement car c'est assez pénible et répétitif. Quand je vais faire une étude je remplis le tableau "quantitatif" qui me chiffre directement mes tableaux dans l'onglet "Résultat", j'ai crée cette onglet car les codes peuvent changer, puis à partir de là me mettre tous mes outils dont leurs nombre est supérieur à 0 sous le format que tu as programmé. J'espère être assez précis

Mais le truc c'est que le nombre de ligne des codes pour les gaines étant variable je peux pas les fixées comme tu as put le faire pour traiter le tableau des gaines.

Un exemple parmi d'autres ...
https://www.cjoint.com/?3EyrvTNo5AV

RQ. le nombre de ligne des codes pour les gaines étant variable je peux pas les fixées comme tu as put le faire pour traiter le tableau des gaines.
Ce nombre n'est pas fixé dans le programme
lifinFR = .Cells(Rows.Count, co).End(xlUp).Row
renvoie la dernière ligne non vide de la colonne co donc, s'il y a 500 lignes, lifinFR vaudra 500

Cdlmnt

C'est juste PARFAIT ! donc je te remercie c'est vraiment super cool !!! :)

Merci toi de même !