une macro pour des données importées

[Pascal]

Bonjour le Forum et Meilleurs voeux à tous,

mon problème est expliqué dans l'exemple.

Merci pour l'aide. [file name=Demo1_20060102112850.zip size=11193]http://www.excel-downloads.com/components/com_simpleboard/uploaded/files/Demo1_20060102112850.zip[/file]

 

[Bernard_XLD]

Bonjour pascal, le forum

voici un exemple de code fonctionnel

Cordialement, A+

Private Sub CommandButton1_Click()
Dim Test As String, Compteur As Long, Compteur2 As Long
On Error Resume Next
Compteur2 = Range('A65536').End(xlUp).Row
For Compteur = Compteur2 To Compteur Step -1
Test = ''
Test = WorksheetFunction.VLookup(Cells(Compteur, 2), Columns('D:D'), 1, False)
If Test = '' Then
Range(Cells(Compteur, 1).Address & ':' & Cells(Compteur, 2).Address).Copy Destination:=Range('F65536').End(xlUp).Offset(1, 0)
Range(Cells(Compteur, 1).Address & ':' & Cells(Compteur, 2).Address).Delete shift:=xlUp
End If
Next Compteur
End Sub

 

[Creepy]

Bonjour le Forum, Yeahou, Pascal,

Pascal pour corriger ton code il faut que tu mettes dans ta ligne if range blabla.. 2 ucase.

En effet lorsque l'on compare du texte avec un bête égale (à l'inverse de strcmp). VBA tient compte de la casse (Majuscules et minuscules)

je ne peux pas te mettre la ligne de code sinon mon post plante quand je clique sur 'soumettre'.

Enfin je pense que je suis explicite.

@+

Creepy

 

[Pascal]

Bonjour Yeahou,Creepy, Le forum
Au faite j'ai pas compris le ligne de code: if range...
Es ce que tu peux me l'envoyer sur n'importe quelle forme.

Merci pour vos aides

 

[Creepy]

Bonjour à Tous,

Regarde en PJ j'ai corrigé ton code

@+

Creepy [file name=Demo1_20060103095230.zip size=10337]http://www.excel-downloads.com/components/com_simpleboard/uploaded/files/Demo1_20060103095230.zip[/file]

 

[Pascal]

Bonjour,
Merci pour l'aide.
@+