VBA variable

Bonjour à tous,

Je vous fais part de mon problème et veuillez excuser mon incompétence

Je souhaite a l'aide de VBA Rechercher le n° d'une ligne en fonction des références rentré jusqu'ici tout vas bien

Sub mavaleur()

Dim plage As Range

Set plage = ThisWorkbook.Worksheets("2").Range("a1:c10")

Set Monchiffre = ThisWorkbook.Worksheets("1").Range("C5")

For Each cell In plage

If cell.Value = Monchiffre Then

MsgBox cell.Address & " est l' adresse de la valeur: " & cell.Value

End If

Next cell

End Sub

là ou mon problème persiste et dans le fait de copier un texte au niveau du numéro de la cellule trouver Exemple :

Cellule.Address = A2 Feuille 2 ; Copier C4 Feuille 1 DANS E2 Feuille 2.

A11 Feuille 2 ; Copier C4 F1 Dans E11 F2

Etc.....

Pouvez vous éclairer ma lanterne .

Cdt,

NF

nasno12 a écrit :

Bonjour à tous,

Je vous fais part de mon problème et veuillez excuser mon incompétence

Je souhaite a l'aide de VBA Rechercher le n° d'une ligne en fonction des références rentré jusqu'ici tout vas bien

Sub mavaleur()

Dim plage As Range

Set plage = ThisWorkbook.Worksheets("2").Range("a1:c10")

Set Monchiffre = ThisWorkbook.Worksheets("1").Range("C5")

For Each cell In plage

If cell.Value = Monchiffre Then

MsgBox cell.Address & " est l' adresse de la valeur: " & cell.Value

End If

Next cell

End Sub

là ou mon problème persiste et dans le fait de copier un texte au niveau du numéro de la cellule trouver Exemple :

Cellule.Address = A2 Feuille 2 ; Copier C4 Feuille 1 DANS E2 Feuille 2.

A11 Feuille 2 ; Copier C4 F1 Dans E11 F2

Etc.....

Pouvez vous éclairer ma lanterne .

Cdt,

NF

Bonjour,

Si ton extrait de code me semble parlant, ce n'est pas le cas de ton dernier paragraphe. Peux-tu joindre un fichier qui illustre ton problème et dans lequel tu expliques ton besoin ?

Merci Pedro pour ta réactivité je te mets en pièce jointe le ficher concerné

Je te remercie d'avance et te souhaite une bonne journée

Cdt,

NF

nasno12 a écrit :

Merci Pedro pour ta réactivité je te mets en pièce jointe le ficher concerné

Classeur1.xlsm

Je te remercie d'avance et te souhaite une bonne journée

Cdt,

NF

Ton fichier modifié :

Le code :

Sub AjoutCommentaires()

Dim Plage As Range, Lig As Long, Resultat As Variant 'Déclaration des variables utilisées

With Sheets(2)
    Set Plage = .Range("A1:A" & .Range("A" & .Rows.Count).End(xlUp).Row) 'Plage de recherche de la Racine
    Set Resultat = Plage.Find(Sheets(1).Range("C5"), LookIn:=xlValues, LookAt:=xlWhole) 'Résultat de recherche
    If Resultat Is Nothing Then
        MsgBox "Racine introuvable !"
        Exit Sub
    Else
        Lig = Resultat.Row 'Ligne correspondante
        .Range("E" & Lig) = Sheets(1).Range("C13") 'Ajout du com 1
        .Range("H" & Lig) = Sheets(1).Range("C14") 'Ajout du com 2
        Sheets(1).Range("C5,C13,C14").ClearContents 'Suppression des valeurs en feuille 1
    End If
End With

End Sub

Merci Pedro c'est exactement ça

serais-tu intéressé par dispenser des cours ( bien entendu rémunéré ) concernant les bases de vba ?

Je vous souhaite une excellente journée et encore une fois merci !

nasno12 a écrit :

Merci Pedro c'est exactement ça

serais-tu intéressé par dispenser des cours ( bien entendu rémunéré ) concernant les bases de vba ?

Je vous souhaite une excellente journée et encore une fois merci !

C'est gentil mais non, je manque de temps et mon cœur de métier n'est pas Excel ni VBA (en clair je ne suis pas le plus à même de dispenser des cours de qualité dans le domaine !)...