If, then, else

[kems]

Bonjour tout le monde,
J'aurai besoin d'un coup de main s'il vous plait.
Sur vba excel, je récupère le numéro de ligne (nommé "x") d'une cellule grâce à "Application.Match". Cependant il se peut que dans ma plage de donnée, la cellule recherché est inexistante, donc x n'a pas de valeur.
Je voudrai quand x existe, effectuer une procédure, et quand il n'existe pas ne rien faire.
Comment codifier celà svp?
ex : if x <> #N/A then......else....?

Merci de votre aide

 

[BERRACHED said]

Re : If, then, else

Salut,Kems

if x <> "" then exit sub
else
la suite de ta procédure
 end sub

Cordialement

 

[tototiti2008]

Re : If, then, else

Bonjour à tous,

moi j'utilise en général :

if Application.worksheetfunction.countif(Plage,"x")>0 then
ligne = Application.worksheetfunction.match("x"...)

 

[kems]

Re : If, then, else

Merci les amis pour vos réponses. Problème résolu.
Cependant un autre se pose...
Dans ma feuille excel j'ai des données de la colonne A à Z. J'ai besoin de supprimer toute plage de données (de A à E) pour laquelle la colonne C est vide. Mon code est le suivant :

Sub sup()

  For i = 2 To Range("A2").End(xlDown).Row
      If Cells(i, 3).Value = "" Then
      Range(Cells(i, 1), Cells(i, 5)).Select
      Selection.Delete shift:=xlUp
      i = i - 1
      End If
     Next i
  End Sub

Le problème est le suivant : lors de l'execution de la macro, à la dernière ligne, la macro bug. Je pense que c'est parceque range("A2").end(xldown).row est variable du fait de la suppression de la selection.

Pourriez vous m'aider svp? Devrais-je vous attacher le document pour mieux vous faire comprendre mon soucis?

Merci encore

 

[kems]

Re : If, then, else

Problème résolu encore une fois,

Sub sup()

  For i = Range("A65536").End(xlup).Row to 2
      If Cells(i, 3).Value = "" Then
      Range(Cells(i, 1), Cells(i, 5)).Select
      Selection.Delete shift:=xlUp
      End If
     Next i
  End Sub

et voila comme ca ca marche.

Merci et à bientot

 

[bqtr]

Re : If, then, else

Bonjour kems, tototiti2008, Said

Il manque le Step -1 pour que ton code fonctionne (un oubli de recopie )

Autrement tu n'est pas obligé de sélectionner la plage avant de la supprimer la ligne. Dans la plus part des cas Le Select ne sert à rien et ralenti l'exécution du code.
Tu peux faire ceci :

Sub sup()
Dim i As Long
Application.ScreenUpdating = False
  For i = Range("A65536").End(xlUp).Row To 2 Step -1
      If Cells(i, 3).Value = "" Then Rows(i).Delete
  Next i
Application.ScreenUpdating = True
End Sub

Bonne soirée

 

[kems]

Re : If, then, else

Oui tout à fait, oubli de recopie!
Par contre je ne supprime pa la ligne entière car j'ai besoin des données des colonnes suivantes (F à Z).
Merci quand même

 

[bqtr]

Re : If, then, else

Re,

Oupssss, autant pour moi

La même chose sans les Select (j'aime pas les Select )

Sub sup()
Dim i As Long
Application.ScreenUpdating = False
  For i = Range("A65536").End(xlUp).Row To 2 Step -1
      If Cells(i, 3).Value = "" Then Range(Cells(i, 1), Cells(i, 5)).Delete shift:=xlUp
  Next i
Application.ScreenUpdating = True
End Sub

A+

 

[kems]

Re : If, then, else

Merci,
Pourquoi mettre
Application.ScreenUpdating = True à la fin de la macro?
Application.ScreenUpdating = False ne suffit-il pas pour cacher la procédure d'execution?

 

[tototiti2008]

Re : If, then, else

Bonjour bqtr, Said, kems,

Vieille habitude de programmation : "si tu désactives quelque chose, prend l'habitude de le réactiver à la fin", même si ce n'est pas obligatoire... Le jour où c'est obligatoire, tu auras pris l'habitude de le faire

 

[bqtr]

Re : If, then, else

Re,

Si, normalement à la fin de la macro Application.ScreenUpdating se réactive tout seul, mais c'est déjà arrivé que cela me pose des problèmes.
Et puis en programmation, il vaut mieux prendre l'habitude de réactiver ce que l'on a désactiver.
Ca peut éviter des mauvaises surprises.

A+

 

[bqtr]

Re : If, then, else

Edit : entièrement d'accord tototiti

 

[kems]

Re : If, then, else

Merci les gars, je retiens le conseil!

Autre chose svp...

J'aimerai automatiser à l'aide d'une macro, la création d'un tableau croisé dynamique. Cependant lorsque je lance l'enregistreur de macro et réexecute cette dernière, elle ne fonctionne pas.
Ma plage de données étant fixe, et les données changeant régulièrement, j'aimerai automatiser la création du TCD.
Sauriez vous comment s'y prendre?
Merci

 

[tototiti2008]

Re : If, then, else

Re,

si la plage de données est fixe, il suffit d'actualiser le TCD, pas besoin de le recréer...

 

[kems]

Re : If, then, else

Oui je vois, merci tototiti
Parcontre y'aurait-il un moyen de le créé?