verifier 2 cellules par rapport au nom de l'onglet

[johnshark]

Bonjour le forum,
je suis un débutant un "peu avancé" en VBA, mais à priori pas encore assez pour résoudre mon problème seul :
je souhaiterais créer un code me permettant de chercher dans 1 ligne avec 2 colonnes (nom,prénom) à vérifier, situées dans une feuille inactive ("obs1"), le nom de la feuille active (nomprénom). Une fois que c'est trouvé insérer les valeurs de ma textbox dans les cellules de la ligne où nom et prénom sont identiques.

Mon problème est que des noms et prénoms sont ajoutés au tableau "obs1" par l'utilisateur, ce qui crée les fiches bilans "nomprénom" s'y rapportant, donc rien n'est fixé à l'avance .
La fiche bilan a besoin des données de "obs1" pour être complèter dans sa globalité (notamment par rapport à une moyenne des candidats).

Mon fichier en beaucoup plus court.

Un énorme merci d'avance.

 

[Mytå]

Re : verifier 2 cellules par rapport au nom de l'onglet

En Xls tu l'as aussi

 

[johnshark]

Re : verifier 2 cellules par rapport au nom de l'onglet

Bonjour,
le voilà

 

[johnshark]

Re : verifier 2 cellules par rapport au nom de l'onglet

Rebonjour, le forum,

Pourquoi faire simple quand on peut faire compliqué
Je viens de me rendre compte que le nom de la feuille active se retrouve dans certaines cellules ("B2" et "E2") donc il ne resterait qu'à comparer ces 2 cellules avec les deux du tableau "obs".
J'ai commencé à écrire un code par rapport à un que j'ai trouvé sur le net :

Dim celo As Range 'déclare la variable celo (cellule origine)
Dim celc As Range 'déclare la variable celc (cellule comparée)
Dim plago As Range 'déclare la variable plag (plage origine)
Dim plagc As Range 'déclare la variable plag (plage comparée)
Set plago = ActiveSheet.Range("B2" & Range("B65536").End(xlUp).Row) 'définit la variable plago
Set plagc = Sheets("obs1").Range("A1" & Range("A65536").End(xlUp).Row) 'définit la variable plagc
For Each celo In plago 'boucle pour chaque cellule origine de la plageo
For Each celc In plagc 'boucle pour chaque cellule comparée de la plagec
    If celo.Value = celc.Value Then Active.celc. 'si c'est ok activer la cellc
    ActiveSheet.Cells(ActiveCell.Row, 3).Value = Me.TextBox1.Text 'si c'est ok copier les valeurs dans des colonnes
    ActiveSheet.Cells(ActiveCell.Row, 4).Value = Me.TextBox2.Text
    ActiveSheet.Cells(ActiveCell.Row, 5).Value = Me.TextBox3.Text
    ActiveSheet.Cells(ActiveCell.Row, 6).Value = Me.TextBox4.Text
    ActiveSheet.Cells(ActiveCell.Row, 7).Value = Me.TextBox5.Text
    ActiveSheet.Cells(ActiveCell.Row, 8).Value = Me.TextBox6.Text
    ActiveSheet.Cells(ActiveCell.Row, 9).Value = Me.TextBox7.Text
    ActiveSheet.Cells(ActiveCell.Row, 10).Value = Me.TextBox8.Text
    ActiveSheet.Cells(ActiveCell.Row, 11).Value = Me.TextBox9.Text
    ActiveSheet.Cells(ActiveCell.Row, 12).Value = Me.TextBox10.Text
    ActiveSheet.Cells(ActiveCell.Row, 13).Value = Me.TextBox11.Text
Next
Next

Unload UserForm4
UserForm5.Show


End Sub

Je fais appel à vos services car cela ne marche pas vraiment... ma première erreur vient de la ligne :

 If celo.Value = celc.Value Then Active.celc.

je voudrais qu'il active la cellule trouvée correspondante.

Merci d'avance