Message à zon

[viny123456789]

Auteur: zon (---.adsl.proxad.net)
Date: 19-06-03 03:35

Bonsoir à tous,


pour commencer tu peux essayer ce code

Sub Copie()
Dim W1 As Worksheet, W2 As Worksheet
Dim Intitule As String, Prix As String
Dim I As Integer, J As Integer
Set W1 = Sheets("Feuil1"): Set W2 = Sheets("Feuil2")
Intitule = W2.[B7]: Prix = W2.[B9]
On Error GoTo Sortie
For I = W2.[B3] To W2.[B4]
J = W1.[A65536].End(xlUp).Row + 1
W1.Range("A" & J) = I
W1.Range("B" & J) = Intitule
W1.Range("I" & J) = Prix
Next I
Sortie:
MsgBox "Le N° en B4 " & W2.[B4] & " est inferieur à celui de B3 " & W2.[B3]
End Sub



A+++




Tout d'abord Merci pour ton aide.
Le code que tu ma fait parvenir et excelent mais il subsiste un prob il faudrait que je ne puis ajouter une serie qu'une seule fois

exemple si j'ajoute les code de 500 à 550 la macro doit m'empecher d'ajouter le code de 530 à 540 sinon la base de donnée deviendra rapidement bourer de doublons...

Encore merci pour ton aide Salut....

 

[zon]

Bonjour à tous, si QQ1 à part moi lit ce message.



Viny pour quoi changer de fil d'autant plus que tu as fait un simple copier coller avec un titre que je n'aime pas du tout et contraire à l'esprit du forum qui doit etre un lieu d'echanges et de partage...




Donc à toi de changer, moi ou d'autres t'aidront peut etre alors...




A+++


PS Reviens sur le fil original