Recuperer le num de la ligne

Fermé

blalaa Messages postés 167 Date d'inscription Statut Membre Dernière intervention -
cs_Le Pivert Messages postés 7904 Date d'inscription Statut Contributeur Dernière intervention - 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

Afficher la suite

A voir également:

Recuperer le num de la ligne
Partage de photos en ligne - Guide
Recuperer message whatsapp supprimé - Guide
Aller à la ligne excel - Guide
Touche verr num - Guide
Mètre en ligne - Guide

2 réponses

Réponse 1 / 2

cs_Le Pivert Messages postés 7904 Date d'inscription Statut Contributeur Dernière intervention 729

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 23541 Date d'inscription Statut Contributeur Dernière intervention Ambassadeur 1 584

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 Statut Membre Dernière intervention

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

Colis shein terminal fret

Colis SHEIN Signe à Paris au terminal fret

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