aide avec mon code

[kllmoon]

Bonjour, encore moi 🙂

J'ai écris le code suivant et ça ne fonctionne pas, je ne comprends pas pourquoi...

Sub trierrnom()

Sheets("Dossiers Actifs").Select
Range("C3:C721").Select
Selection.ClearContents
Sheets("Nom").Select
Columns("A:A").Select
If IsError(Selection.SpecialCells(xlCellTypeFormulas, 2).Select) Then
MsgBox "Votre liste est vide", vbInformation, "Attention"
Else
Selection.SpecialCells(xlCellTypeFormulas, 2).Select
Selection.Copy
Sheets("Dossiers Actifs").Select
Range("C3").Select
ActiveSheet.Paste
End If
End Sub

Lorsque je n'ai pas de données d'entrée en A, excel me donne l'erreur "Errueru d'exécution 1004 - Pas de cellule correspondante". Le déboggage s'arrête sur la ligne en rouge avec cette erreur... Je ne comprends pas ce que j'ai fais de croche ici, logiquement cette formule devrait fonctionner.... Si ça donne l'erreur... cette formule ne devrait-elle pas gérer cette erreur??

 

[Pierrot93]

Re : aide avec mon code

Bonjour,

pas sur d'avoir tout compris de ta demande, mais pour vérifier que les cellules de ta selection ne comportent aucune valeur, essaye le code ci dessous :

If WorksheetFunction.CountA(Selection) = 0 Then
    MsgBox "Votre liste est vide", vbInformation, "Attention"
End If

bonne fin d'après midi
@+

 

[kllmoon]

Re : aide avec mon code

Merci de ta réponse mais justement, il est là le problème! mes cellules contiennent toutes des valeurs! Ce code sert à ignorer les données numériques et sélectionner uniquement les données textuelles, une fois sélectionnées, je copie ces données et les colles dans un autre tableau, éliminant ainsi toute ma série de cases n'ayant pas de résultat. Il fonctionne a merveille lorsqu'il y a une entrée mais donne l'erreur lorsqu'il y a uniquement des données numériques.

Lorsqu'il donne cette erreur, je veux une msgbox qui indique que la liste est vide. Je regarde mon code, j'y indique que s'il y a erreur, il doit me donner la msgbox mais au contraire, il me donne l'erreur et l'indique comme une erreur dans mon code! Je suis confus là moi!!

Mais tu m'as mis sur une piste de solution, j'essais et je t'en donne des nouvelles

 

[kllmoon]

Re : aide avec mon code

C'est résolu, merci pour la piste Pierrot, ton intervention m'a permis de régler le problème. Pour pouvoir trier les valeures textuelles de ma liste et les remettre en ordre, j'ai donné un résultat négatif et un positif. Mon positif est l'information que je cherche et le négatif est un 7 tout simplement!

Alors si j'ai des 7 partout, j'ai une somme de 4550. J'ai donc incorporer cette formule dans mon bouton et voilà, plus d'erreurs!

Private Sub CommandButton1_Click()
Dim Valeur_Chercher
Valeur_Chercher = Range("G3")
If Valeur_Chercher = 4550 Then
MsgBox "Vous n'avez aucun dossier actif", vbInformation, "Attention"
Exit Sub
Else
Application.Run "'7.xls'!trierrnom"
Application.Run "'7.xls'!Module11.trierchambre"
End If
End Sub