Plusieurs formules qui ne marchent pas

bonjour,

J'ai un pb dans mon fichier, l'userform BD_Equiper ne fonctionne pas pourtant la formule est identique à celle déjà utilisée en N ou M.

De plus, je n'arrive pas à générer le numéro de ligne de sélection dans un Range sous l'userforme Transfert.

Si vous pouviez m'aider, ce serai super !

je tourne en rond !

novice, ca pourrais en décourager plus d'un mais je tiens bon !

merci!

Bonjour

Tu écris :

l'userform BD_Equiper ne fonctionne pas

Tu as ce code pour ouvrir ton userform :

Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)

If Not Application.Intersect(Target, Range("feuil1!a4:a86")) Is Nothing Then

Remplace-le par celui-ci :

Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
If Not Application.Intersect(Target, Range("Feuille_spectacle!a4:a86")) Is Nothing Then

Pour ce qui est de générer un numéro de ligne, il faudrait un peu plus d'explications...

Bye !

Pour ce qui est

merci de la réponse,

BD_Equiper doit s'ouvrir avec la page active donc:

Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)

If Not Application.Intersect(Target, Range("a4:a86")) Is Nothing Then

BD_Equiper.Show

End If

End Sub

"a4:a86" étant effectif sur la feuil3! , une autre plage sur la feuil4!

BD_Equiper doit s'ouvrir en double cliquant sur une cellule de ces plages.

Ca marchait jusqu'à une modif qqpart, puis ça ne marche plus.

Concernant le numéro de ligne, voilà ce que je cherche à faire :

écrire dans la colonne B mais sur la même ligne que la cellule sélectionnée ;

c'est pourquoi j'ai essayé :

Private Sub Image1_Click()

With recap

Range("B, ActiveCell.Row") = .Value

End With

Unload BD_Equiper

End Sub

mais ça sa ne marche pas non plus.

je suis novice donc je comprends que je puisse faire des erreurs de programmation, je tatonne, mais je ne trouve pas les solutions.

merci de m'aider dans la compréhension de VBA.

bonjour à tous,

j'ai modifié un peu le fichier et rectifié quelques erreurs, le voici donc remis à jour avec toujours mes pb sur Userform Equiper et le probleme Range("B, Activecell.row")

si quelqu'un peu m'orienter, j'en perd mon latin.

merci