Bonjour,
J'ai une feuille de calcul avec un bouton code pour la validation des donnes.
La validation des donnes part dans une autre feuille de devis.
voici le code avec une erreur "erreur de compilation: Projet ou bibliothèque introuvable"
Private Sub VALIDER_Click()
Dim n%
Dim i%
n = Range("A65500").End(xlUp).Row
j = 25
For i = 4 To n
If IsNumeric(Range("B" & i)) And Range("B" & i) <> 0 Then
article = Range("A" & i)
qte = Range("B" & i)
prix = Range("F" & i)
j = j + 1
With Sheets("DEVIS")
.Range("D" & j) = article
.Range("C" & j) = qte
.Range("I" & j) = prix
End With
End If
Next i
End Sub
J'ai une feuille de calcul avec un bouton code pour la validation des donnes.
La validation des donnes part dans une autre feuille de devis.
voici le code avec une erreur "erreur de compilation: Projet ou bibliothèque introuvable"
Private Sub VALIDER_Click()
Dim n%
Dim i%
n = Range("A65500").End(xlUp).Row
j = 25
For i = 4 To n
If IsNumeric(Range("B" & i)) And Range("B" & i) <> 0 Then
article = Range("A" & i)
qte = Range("B" & i)
prix = Range("F" & i)
j = j + 1
With Sheets("DEVIS")
.Range("D" & j) = article
.Range("C" & j) = qte
.Range("I" & j) = prix
End With
End If
Next i
End Sub