Recuperer le num de la ligne

Fermé

blalaa Messages postés 167 Date d'inscription mercredi 18 avril 2018 Statut Membre Dernière intervention 24 mars 2020 - Modifié le 14 mars 2019 à 09:45
cs_Le Pivert Messages postés 7903 Date d'inscription jeudi 13 septembre 2007 Statut Contributeur Dernière intervention 11 mars 2024 - 14 mars 2019 à 09:39

Bonjour,

voila un code que jai mis pour recuperer le numero de la ligne

ce code ne fonctionne que si le contenu de la cellule A(NOM prenom) est le mm que dans les cellule C (NOM prenom)


[/contents/446-fichier-sub Sub] tester()

Dim i, Lne As Integer

    For i = 24 To 100

    If Range("C" & i).Value = Range("A1").Value Then Lne = i

    Range("b1") = Lne - 23
    
    If Range("C" & i).Value = Range("A2").Value Then Lne1 = i
    
    Range("b2") = Lne1 - 23
    
    If Range("C" & i).Value = Range("A3").Value Then Lne2 = i
    
    Range("b3") = Lne2 - 23
    
    If Range("C" & i).Value = Range("A4").Value Then Lne3 = i
    
    Range("b4") = Lne3 - 23
    
    If Range("C" & i).Value = Range("A5").Value Then Lne4 = i

    Range("b5") = Lne4 - 23
    
    If Range("C" & i).Value = Range("A6").Value Then Lne5 = i
    
    Range("b6") = Lne5 - 23
    
    If Range("C" & i).Value = Range("A7").Value Then Lne6 = i
    
    Range("b7") = Lne6 - 23
    
    If Range("C" & i).Value = Range("A8").Value Then Lne7 = i

    Range("b8") = Lne7 - 23
    
    If Range("C" & i).Value = Range("A9").Value Then Lne8 = i
  
    Range("b9") = Lne8 - 23
    
    If Range("C" & i).Value = Range("A10").Value Then Lne9 = i
    
    Range("b10") = Lne9 - 23
    
    If Range("C" & i).Value = Range("A11").Value Then Lne10 = i
   
    Range("b11") = Lne10 - 23
    
    If Range("C" & i).Value = Range("A12").Value Then Lne11 = i
    
    Range("b12") = Lne11 - 23
    
    If Range("C" & i).Value = Range("A13").Value Then Lne12 = i
   
    Range("b13") = Lne12 - 23
    
    If Range("C" & i).Value = Range("A14").Value Then Lne13 = i
    
    Range("b14") = Lne13 - 23
    
    If Range("C" & i).Value = Range("A15").Value Then Lne14 = i
    
    Range("b15") = Lne14 - 23
    
    If Range("C" & i).Value = Range("A16").Value Then Lne15 = i
    
    Range("b16") = Lne15 - 23
    
     If Range("C" & i).Value = Range("A17").Value Then Lne16 = i
    
    Range("b17") = Lne16 - 23
    
    If Range("C" & i).Value = Range("A18").Value Then Lne17 = i
    
    Range("b18") = Lne17 - 23
    
    
    If Range("C" & i).Value = Range("A19").Value Then Lne18 = i
    
    Range("b19") = Lne18 - 23
    
    If Range("C" & i).Value = Range("A20").Value Then Lne19 = i
    Next i
    Range("b20") = Lne19 - 23
    
End Sub

maintenant je veux que mon code verifie que la partie en MAJUSCULE dans les cellule A et C c veut dire
si
la majuscule dans la cellule A se trouve aussi dans la cellule C (a partie de C 24) le code renvoie le numero de la ligne

exemple

dans range("a1") on enregistre VALENTIN Jerom
dans range("c24") on enregistre Jerom VALENTIN

je veux que le code soit excuter ca v dire recuperer le numero de la ligne, qui est dans ce cas 24

je ne sais pas si c possible ou nn

merci davance

A voir également:

Recuperer le num de la ligne
Recuperer video youtube - Guide
Aller à la ligne excel - Guide
Compte piraté facebook comment le recuperer - Guide
Recuperer message whatsapp - Guide
Site de vente en ligne particulier - Guide

2 réponses

Réponse 1 / 2

cs_Le Pivert Messages postés 7903 Date d'inscription jeudi 13 septembre 2007 Statut Contributeur Dernière intervention 11 mars 2024 728
14 mars 2019 à 09:39

Bonjour,

voir ici:

https://forums.commentcamarche.net/forum/affich-35921648-comparer-la-partie-majuscule-d-une-cellule-a-la-partie-majuscule-d-une-autre-cel#4

Réponse 2 / 2

yg_be Messages postés 22720 Date d'inscription lundi 9 juin 2008 Statut Contributeur Dernière intervention 23 avril 2024 1 476
Modifié le 13 mars 2019 à 19:47

bonjour,
je n'ai pas compris, il me semble que VALENTINJ est différent de JVALENTIN.
par ailleurs, ne peut-on pas simplifier ton code ainsi:

Sub tester()
Dim i As Long, j As Long
For i = 24 To 100
    For j = 1 To 23
        If Cells(i, 3) = Cells(j, 1) Then
            Cells(j, 2) = i - 23
        End If
    Next j
Next i
End Sub

blalaa Messages postés 167 Date d'inscription mercredi 18 avril 2018 Statut Membre Dernière intervention 24 mars 2020
14 mars 2019 à 09:15

bonjour

effectivement vous avez raison

ce que je souhaite plutot c que macellule commence toujours par le NOM mm si moi j'enregistre le prenom en premier

exmple

Ludovic QUENTIN
Ludovic c'est prenom
QUENTIN c'est le NOM

ce que je souhaite moi si c'est possible c'est de inverser l'ordre ca veut dire commencer tjrs par la majuscule de contenu qui est le NOM

exemple
jecris dans la cellule A =Ludovic QUENTIN
je souhaite que la cellule A = QUENTIN Ludovic

c veut dire on commence toujours par le NOM qui est en majuscule

je vous remercie pour votre reponse

Discussions similaires

Chemin Logo du site de la Cité de l'espace

Que veut dire "correspondant occupé" lors d'un appel ?

Discussions similaires

Newsletters