Macro avec 2 repeat conditions

[Temjeh]

Bonsoir le forum

Macro qui copie et delete des lignes....
J'aimerais juste savoir le code pour macro1 avec condition:

Tant que A1 n'est pas vide et que A10 est vide il exécute macro1 à répétition !!

Si A10 n'est pas vide.....exit sub
Si A1 devient vide il ne repète plus macro1 et exit sub

j'ai testé ce début sans résultat:

If Range("A1") <> "" Then
If Range("A10") = "" Then
Macro1
Else
Exit Sub
If Range("A1") <> "" Then
If Range("A10") = "" Then
Macro1
Else
Exit Sub
End If
End If
End If
End If

Merci beaucoup

Temjeh

 

[Gérard DEZAMIS]

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

 

[Temjeh]

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

 

[Pascal76]

Salut

Peut-être

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

Bonne journée

Pascal

 

[Temjeh]

Merci beaucoup mais ca fonctionne pas

Je joint un démo

A++

Temjeh

 

[Pascal76]

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

 

[Pascal76]

Re,

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

Pascal

 

[Temjeh]

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

 

[Temjeh]

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

A++

 

[Temjeh]

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

 

[Temjeh]

Merci beaucoup j'ai vu

Un erreur niaiseuse 2hrs de doutes

A++

Temjeh

 

[Temjeh]

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

Temjeh