Macro avec 2 repeat conditions

Bonjour Temjeh

Je suis au raz des paquerettes en VBA mais ... une petite piste
essaye avec une écritude de ce type :

If Range("A1") <> "" And Range("A10") = "" Then

@+ GD

Merci Gérard mais ca fonctionne pas(moi aussi j'avais essayé avec and)

Voici une macro que j'ai fais(aulieu de ..exécute macro1 j'ai mis la macro)

Debut:
If Range("A1") <> "" Then
Range("A3").Select
Selection.EntireRow.Delete
Range("A1:A3").Select
Selection.Cut
Range("A2000").End(xlUp).Offset(1, 0).Select
ActiveSheet.Paste
Range("A1:A9").Select
Selection.Delete Shift:=xlUp
Range("A989").Select
Selection.EntireRow.Insert
Selection.EntireRow.Insert
Selection.EntireRow.Insert
Selection.EntireRow.Insert
Selection.EntireRow.Insert
Selection.EntireRow.Insert
Selection.EntireRow.Insert
Selection.EntireRow.Insert
Selection.EntireRow.Insert
Selection.EntireRow.Insert
Range("A1:A9").Select
Else
Exit Sub
End If
GoTo Debut

Et si je met ta ligne ca marche pas

Debut:
If Range("A1") <> "" And Range("A10") = "" Then
Range("A3").Select
Selection.EntireRow.Delete
Range("A1:A3").Select
Selection.Cut
Range("A2000").End(xlUp).Offset(1, 0).Select
ActiveSheet.Paste
Range("A1:A9").Select
Selection.Delete Shift:=xlUp
Range("A989").Select
Selection.EntireRow.Insert
Selection.EntireRow.Insert
Selection.EntireRow.Insert
Selection.EntireRow.Insert
Selection.EntireRow.Insert
Selection.EntireRow.Insert
Selection.EntireRow.Insert
Selection.EntireRow.Insert
Selection.EntireRow.Insert
Selection.EntireRow.Insert
Range("A1:A9").Select
Else
Exit Sub
End If
GoTo Debut

Merci

Temjeh

Salut

Peut-être

debut:
if range("A1")="" or range("A10")<>"" then exit sub
macro1
goto debut

Bonne journée

Pascal

Merci beaucoup mais ca fonctionne pas

Je joint un démo

A++

Temjeh

RE

Ton problème vient du fait qu'en fait tes cellules ne sont pas vides mais ont un espace.

Donc ta condition Range("A10") = "" ou autre n'est jamais vérifié

Pascal

Re,

regardes en tenant compte de l'espace si c'est cela qui te va

Pascal

Merci beaucoup Pascal

Les données que je copies son de l'internet et je fait un copier coller donc c'est pour cela que je ne m'en était pas rendu compte.

Effectivement toutes les memes donnés(des centaines de lignes) ont cette espace.

Merci je doit partir

j'essairai de mettre avant la macro un genre de supprime espace avant

A++

Temjeh

Merci je l"essais plus tard et je te redonne des nouvelles

A++

J'ai revenu chez moi pour 5 min

PTêtre que tu as mal sauvegarder mais il y a rien de changer dans la macro

Merci Pascal

Temjeh

Merci beaucoup j'ai vu

Un erreur niaiseuse 2hrs de doutes

A++

Temjeh

Merci aussi Gérard ta formule aussi était bonne sauf que en A10 j'avais un espace que je ne voyais pas

Temjeh