regrouper une formule

Bonjour le forum
pour chaque cellule j'ai rentré ce code

Code:

---

1 2 3 4 5 6 7 8 9

If [C5] <> C_code Then 'C_code étant le non d'un textbox [C6500].End(xlUp).Offset(1, 0).Select ActiveCell = "-" End If   If [D5] <> C_code Then [D6500].End(xlUp).Offset(1, 0).Select ActiveCell = "-" End If

---

et ainsi de suite j'en ai 16 comme cela
il y a t'il un code qui me regrouperait tout
merci de votre aide

Code:

---

1 2 3 4 5

For i = 3 to 18 If Cells(5,i).value <> C_code Then Cells(6,i) = "-" End If Next

---

Voilà pour 16 colonnes à partir de la colonne C. J'ai aussi simplifié ton code.
Bon Week-End !

Bon j'ai un problème avec le code mais surement parceque j'ai oublie de te dire le code avant

Code:

---

1 2 3 4 5 6 7 8

For nbcolonnes = 3 To 18 ' 3 = C , 18 = R If Cells(5, nbcolonnes) = C_code Then nblignes = Cells(65536, nbcolonnes).End(xlUp).Row + 1 Cells(nblignes, nbcolonnes) = Val(Me.t_parpaingf) Exit For End If Next nbcolonnes If nbcolonnes > 18 Then MsgBox "le code demandé n'existe pas "

---

désolé

re,le forum j ai mis le code dans bouton userform

Option Explicit

Code:

---

1 2 3 4 5 6 7

Private Sub CommandButton1_Click() Dim i As Byte, j As Long For i = 3 To 18 j = Cells(65536, i).End(xlUp).Row + 1 If Cells(5, i) = Val(C_code) Then Cells(j, i) = t_parpaingf.Value Else Cells(j, i) = "-" Next i End Sub

---

merci de votre aide
mais cela me donne des - dans toutes mes cllules (les 18) et ne marque pas
la valeur de val(C_code).

je viens de voir que tu as marqué au dessus option explicit
j'en fait quoi?
merci

bonjour croky23 le forum sur ta ligne 5 les donnees sont numerique ou pas ?? si elle le sont pas change Val(C_code) par C_code

genre BC2020, BC520 etc

en effet j'ai changé comme tu m'as dit et miracle ça marche
top fort le forum
merci laetitia