Copier valeur sous condition

Bonjour

je n'arrive pas à joindre un fichier, comment fait on svp ?

 
Bonjour Tuline,

Je te propose ce code VBA :

Option Explicit

Sub prix_enseigne()
  ' NomED : Nom de l'enseigne du devis
  Dim NomED As String, i As Long, j As Long
  Worksheets("QUOTATION").Activate
  Application.ScreenUpdating = False
  With Worksheets("Prix enseigne")
    For i = 17 To 20
      NomED = Range("B" & i)
      For j = 3 To 23
        If .Range("C" & j) = NomED Then
          If .Range("J" & j) > 0 Then
            Range("E" & i) = .Range("J" & j)
          Else
            Range("E" & i) = "a"
          End If
          Exit For
        End If
      Next j
    Next i
  End With
End Sub

Si tu es sûre que tes lignes i et j ne dépasseront jamais 255,
tu peux mettre : i As Byte, j As Byte

⚠ Les n° de lignes pour i et j sont selon tes 2 copies d'écran
=> 17 à 20 et 3 à 23 ; à adapter dans ton vrai fichier.

On met le prix de la colonne J s'ils sont présents, sinon : "a".

----------------------------------------------------

Pour les prix des autres colonnes (F et G, et peut-être aussi E et I), il faut
que tu donnes plus d'infos : combien de dimensions y a-t-il en tout ?
3 (colonnes F, G, J) ? 5 (si E et I en plus) ? autre ?

complète en ligne 1 les dimensions ; s'il y a des PU en colonnes E et I,
mets "PU" en E2 et I2.

Sur ta feuille "QUOTATION", lignes 17 à 20, où donc mets-tu la dimension
voulue par le Client ? il la faut pour pouvoir faire une correspondance
avec la bonne colonne de prix !

----------------------------------------------------

Donne un exemple concret de dimensions, de ce genre :
«
Dimensions A : 80 × 30
Dimensions B : 100 × 40
Dimensions C : 120 × 50
(Largeur × Hauteur en cm)
»

À te lire pour la suite.

Cordialement
 

Bonjour fred,

mille mercis,
j'ai su adapter et tout fonctionne parfaitement !!
Je te remercie