Tester contenue d'une cellule et nom d'une feuille

Résolu/Fermé

camcam1404 Messages postés 64 Date d'inscription mardi 13 décembre 2016 Statut Membre Dernière intervention 9 septembre 2019 - Modifié par pijaku le 15/02/2017 à 13:53
camcam1404 Messages postés 64 Date d'inscription mardi 13 décembre 2016 Statut Membre Dernière intervention 9 septembre 2019 - 16 févr. 2017 à 09:46

Bonjour,

J'aimerais effectué une instruction à condition que la valeur d'une cellule soit contenue dans le nom de la feuille.
J´ai essayé le code ci-dessous sans résultat. Quelqu'un voit d'où vient le problème ?
Le code fonctionne si j'écrit If REF.Cells(i, 1) =O.Name Then mais ce n'est pas exactemment ce que je souhaite.

Sub jpp()


Dim i As Long
Dim Lastline As Long
Dim O As Worksheet



Set REF = Worksheets("REF")

Lastline = REF.Range("A1").End(xlDown).Row


For Each O In ActiveWorkbook.Worksheets

If UCase(O.Name) Like "*RES*" Then
   For i = 2 To Lastline
<bold>  If REF.Cells(i, 1) =Right( O.Name ,10) Then => ligne qui pose problème</bold>

SNzusuchen = REF.Cells(i, 3)
           Set rangezuabsuchen = O.Columns(2)

Set gefunden = rangezuabsuchen.Cells.Find(what:=SNzusuchen)

If gefunden Is Nothing Then
                REF.Cells(i, 5) = 0
                Else
                REF.Cells(i, 5) = 1
                End If

End If
  Next i
 End If
Next O

End Sub

A voir également:

Tester contenue d'une cellule et nom d'une feuille
Flash drive tester - Télécharger - Divers Utilitaires
Tester son pc - Guide
Aller à la ligne dans une cellule excel - Guide
Comment supprimer une feuille sur word - Guide
Verrouiller cellule excel sans verrouiller la feuille - Guide

1 réponse

Réponse 1 / 1

ThauTheme Messages postés 1442 Date d'inscription mardi 21 octobre 2014 Statut Membre Dernière intervention 29 juillet 2022 160
15 févr. 2017 à 13:42

Bonjour Camcam, bonjour le forum,

Il y a un espace en trop entre la parenthèse (ouverture après Right) et O (de O.Name). Si tu le supprimes la ligne ne plante plus. Mais je ne sais pas si la résultat escompté est conforme ?!...

Ton code modifié :

Sub jpp()
Dim REF As Worksheet
Dim Lastline As Long
Dim O As Worksheet
Dim I As Long
Dim rangezuabsuchen As Range
Dim gefunden As Range

Set REF = Worksheets("REF")
Lastline = REF.Range("A1").End(xlDown).Row
For Each O In ActiveWorkbook.Worksheets
    If UCase(O.Name) Like "*RES*" Then
        For I = 2 To Lastline
            If REF.Cells(I, 1) = Right(O.Name, 10) Then
                SNzusuchen = REF.Cells(I, 3)
                Set rangezuabsuchen = O.Columns(2)
                Set gefunden = rangezuabsuchen.Cells.Find(what:=SNzusuchen)
                If gefunden Is Nothing Then
                    REF.Cells(I, 5) = 0
                Else
                    REF.Cells(I, 5) = 1
                End If
            End If
        Next I
    End If
Next O
End Sub

camcam1404 Messages postés 64 Date d'inscription mardi 13 décembre 2016 Statut Membre Dernière intervention 9 septembre 2019
15 févr. 2017 à 14:24

Oui oui j'ai pas d'espace dans mon code.
Mais ce ne fonctionne quqnd meme pas.

Je crois que le probléme viens de lá:
O,Name n'est pas un String mais je sais pas ce que c'est enfaite.. (La fonction Right est valable que pour des strings)
Je vais voir comment je üeux convertir le O.Name

ThauTheme Messages postés 1442 Date d'inscription mardi 21 octobre 2014 Statut Membre Dernière intervention 29 juillet 2022 160 > camcam1404 Messages postés 64 Date d'inscription mardi 13 décembre 2016 Statut Membre Dernière intervention 9 septembre 2019
Modifié par ThauTheme le 15/02/2017 à 14:35

Re,

La propriété [Name] renvoie toujours du String même si le nom de ton onglet est un numéro. Exemple, tu as nommé ton onglet 123, O.Name renvoie "123" (la chaîne de caractères "123" pas le numéro 123). Es-tu sûr que le nom contienne 10 caractères minimum ?

camcam1404 Messages postés 64 Date d'inscription mardi 13 décembre 2016 Statut Membre Dernière intervention 9 septembre 2019
15 févr. 2017 à 15:08

Oui si les chiffres sont et les points sont considérés comme des caractères.
Le nom des feuilles est du type: REF_01.01.2017
Et ce le terme 01.01.2017 que je veux prendre en compte avec la fonction Right(O.Name,10)

Re,

Tu compares une chaîne de caractère, tirée du nom d'un onglet, avec une date dans une cellule. Attention ! Les dates s'affichent selon le format dans la cellule où elles se trouvent. Tu peux avoir écrit en A1 : 10.01.2017 alors que Range("A1").Value renvoie 10/01/2017.
Dans ce cas la comparaison :

 If REF.Cells(I, 1) = Right(O.Name, 10) Then

peux ne pas fonctionner.

Soit tu compares deux dates :

 If REF.Cells(I, 1) = CDate(Right(O.Name, 10)) Then

Soit tu compares deux chaines de caractères :

 If CStr(REF.Cells(I, 1)) = Right(O.Name, 10) Then

Mais tu risques d'avoir encore le problème d'inversion Mois/Jour...

camcam1404 Messages postés 64 Date d'inscription mardi 13 décembre 2016 Statut Membre Dernière intervention 9 septembre 2019
16 févr. 2017 à 09:46

Avec la comparaison de deux date ca fonctionne ! Merci

Discussions similaires

Annuaire portable gratuit à partir d'un nom

Comment trouver une adresse avec un nom de famille ?

Excel : colorer une cellule sous condition d'une autre ?

"Nom de l'adresse" lors d'une inscription sur une site

Feuille de score belote