developpement de propriété

j'aimerai savoir comment proceder pour faire un developpement de propriete
par exemple j'ecris
MATERIAUX +
quand je clique sur le + j'aimerai pouvoir lire le developpement
MATERIAUX-
................
................
etc............
mais je ne souhaite pas un plan automatique car je prefererai que mes +
soient dans ma feuille
j'espere que je suis assez clair
avec tout mes remerciements
cordialement
jeny

Salut jeny.

juste avant de me coucher...
1)Insertion bouton de commande dans la feuille en A1
2) "Matéraiux" en B1
3) liste à partir de C2
3)Code associé au bouton

Private Sub CommandButton1_Click()

Range("C2").Select
'j'étend ma selection vers le bas
Range(Selection, Selection.End(xlDown)).Select
'je masque mes lignes
Selection.EntireRow.Hidden = True


Pour démasquer...
on verra demain

@+ peper-eliot

Bonjour,

Je te joins un exemple avec masquage de lignes et utilisation de l'évenement "BeforeDoubleClick" de la feuille.

Un double-clic sur "+" développe ou masque les lignes de détail.

En espérant que cela puisse t'aider...

Didier

salut peter
je te remercie pour ta reponse
j'espere y arriver
j'attend la suite
tu sais je debute alors j'ai un peu de mal a comprendre
mais je persiste!
merci encore
A+
jeny

salut mdf
je te remercie
je vais essayer de mettre ton plan a execution
A+
jeny

RE BONJOUR MDF
j'ai reussi ça marche
merci beaucoup
super!!!!!!!
a +
tu sais j'ai pas fini et j'aurai encore besoin de votre aide
encore merci

Salut à tous

En 'homage' à mDF qui ma fait découvrir le
Worksheet_BeforeDoubleClick ByVal Target....

Et pour ne pas oublier ma promesse à Jeny ("Pour démasquer...
on verra demain)...

voilà un petit amménagement du code qui tient compte du fait que les données peuvent être augmentées ou diminuées

Le classeur de mDF est toujours accessible et il suffit de remplacer son code par celui-ci :

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

'Déclaration des variables
Dim L As Integer 'N° de la ligne
Dim N As Integer 'Nombre de données à masquer ou démasquer


With Target 'avec la cellule cible [Target] sur laquelle je DoubleClick
'=============================
'==LES MSGBOX sont juste là pour vérifier comment les variables sont stockées
'=============================
L = .Row 'L = le numéro de la ligne [.Row]
MsgBox L & "= le N° de la ligne sur leque se trouve le +/-" 'vérif Ok
N = Cells(L, 2).Value 'N = le nombre dans ligne L et la colonne 2 (B)
MsgBox N & "= le nombre situé à droite du +/-" 'vérif Ok

'SI [TARGET] = "-"
If .Value = "-" Then
'MISE A JOUR du nombre N d'éléments
Cells(L + 1, 4).Select 'Elle correspond au début de ma liste d'éléments
'je selectionne la cellule de la ligne en dessous [L+1] à la colonne D [4]
'j'étend la sélection jusqu'à la fin de la liste de données
Range(Selection, Selection.End(xlDown)).Select
'BIEN ÉVIDEMMENT TOUTES LES DONNÉES DOIVENT SE SUIVRE (pas de blanc)
N = Selection.Count 'N = nombre de sélections
Cells(L, 2).Select 'le vais mettre ce nbre dans la cellule [L,2], à droite de la [Target]
ActiveCell.FormulaR1C1 = N 'Et voilà...
'MASQUER LES CELLULES
'je sélectionne les cells à/c ligne suivante [L+1]
'jusqu'aux cells [L+N] soit la dernière ligne de ma liste
'je les masque [Hidden = True]
Range(Cells(L + 1, 1), Cells(L + N, 1)).EntireRow.Hidden = True
.Value = "+" 'Et bien évidemment je change [Target] en "+"
'======C'est fini, mais pour faire joli
Cells(L, 3).Select
'SINON SI [TARGET] = "+"
ElseIf .Value = "+" Then
'DEMASQUER LES CELLULES
Cells(L + 1, 4).Select 'Je recommence
Range(Selection, Selection.End(xlDown)).Select
Selection.EntireRow.Hidden = False
.Value = "-" 'Et bien évidemment je change [Target] en "-"
'======C'est fini, mais pour faire joli
Cells(L, 3).Select
End If
End With
'Ma [Target] est un objet agissant comme un CommandButton
'sur lequel je cliquae pour lancer une action
'En l'occurrence, le double click sur la [Target] ayant fait ce que je voulais
'je sort avec
Cancel = True

End Sub


Tous les commentaires, c'est pour Jeny moi et les autres pauvres débutants qui n'y comprennent pas grand choses et avancent à petits pas - Genre binaire quoi... Lol......

@+ peper-eliot

Oups...
En fait, j'ai rajouté une colonne dans la feuille
alors j'envoie vite fait le nouveau fichier.

@+ peper-eliot

salut peper
merci beaucoup
les commentaires sont tres utiles pour la pauvre debutante que
je suis
un jour c'est peut-etre moi qui t'aiderai!!!!!!!!!!
j'ai pas fini alors je sens que j'aurai encore besoin de vous
A+
JENY