copier une zone si elle est non vide

[Tmumu]

Bonjour,

Je souhaite copier une zone définie uniquement si une cellule est non vide.

Et ce sans utiliser if ... then ...

Avez-vous une solution ?

Merci

 

[skoobi]

Re : copier une zone si elle est non vide

Bonjour,

uniquement si une cellule est non vide

Donc les autres cellules peuvent être vides ou aucune cellules ne doit être vide?

 

[Tmumu]

Re : copier une zone si elle est non vide

Si et seulement si au moins une cellule est non vide.

Merci pour la demande de précision.

 

[skoobi]

Re : copier une zone si elle est non vide

Re,

une proposition:

Sub Macro1()
Dim vide As Boolean
vide = True
For Each cellule In Range("B2:D5")
    If cellule <> "" Then
        Range("B2:D5").Copy Range("B10")
        vide = False
        Exit For
    End If
Next
If vide Then MsgBox "Le tableau est vide."
End Sub

 

[pierrejean]

Re : copier une zone si elle est non vide

bonjour Tmumu

désolé il y a quand même un if then

Edit:

Salut Skoobi
Content de te croiser 🙂

 

[Tmumu]

Re : copier une zone si elle est non vide

Un tout grand merci ! Il y a en effet un "if ... them ..." mais cela n'est pas très long.

Est-il possible d'utiliser la fonction cells au lieu de range ?

Si oui comment faire ?

La suite de ma macro utilise Cells, et je préfére rester cohérent avec l'ensemble.

 

[pierrejean]

Re : copier une zone si elle est non vide

Re

Avec Excel il y a des choses incontournables

un Range d'une cellule peut etre remplaçé par un Cells

mais pour une plage il faut Range (du moins a ma connaissance)

Voila ce que je peux faire de mieux

Sub copie()
Dim tablo()
'copie l'ensemble des cellules si l'une est non vide
tablo = Range(Cells(2, 2), Cells(5, 4)) ' range("B2:D5"))
For n = 1 To UBound(tablo, 1)
 For m = 1 To UBound(tablo, 2)
   x = x & tablo(n, m)
 Next m
Next n
If x <> "" Then
  Range(Cells(2, 2), Cells(5, 4)).Copy Destination:=Cells(10, 2) ' (Range("B10")
End If
End Sub

 

[Tmumu]

Re : copier une zone si elle est non vide

Bravo et merci !