Modifier plusieurs lignes dont la valeur est identique

Bonjour à tous,

Je vous explique mon problème...

Quand j'ouvre mon userform de modification de formulaire, je rappelle toute les données de ma feuille excel.

Apres avoir modifier mon formulaire, exemple ma listbox TYPE (Fraises, forêt, plaquettes...etc), quand je clique sur modifier, cela modifie dans la colonne type de mon fichier toutes les lignes de l'outil concerné et ses frères.

Pouvez vous m'aider...merci

Pour vous aider j'ai un une petite partie de mon fichier xls.

Pour info le mdp est "greg"

Bonsoir...

Je ne comprends pas très bien ton problème ...

Essaie de simplifier l'énoncé STP.

Pour essayer d'être plus clair...

Quand je clique sur "modifier outil", que je choisit par exemple l'outil 101, celui ci à plusieurs frères dont les caractéristiques sont les mêmes....

Ce que je souhaite, lorsque je modifie le type de l'outil dans la userform (Ici, fôret à plaquette) et que je clique sur modifier.

Il faut que ca modifie la colonne C de la ligne de l'outil 101 mais aussi des lignes 110 112 113 qui sont en fait des freres des outils 101.

Bonjour à tous,

J'ai essayé de mon coté, je n'y arrive toujours pas...

Je compte sur votre aide

Merci,

bonsoir,

il y a t il quelqu'un pour m'aider...?????

Merci

bonsoir,

il y a t il quelqu'un pour m'aider...?????

Merci

aucun avatar

Bonjour,

Toujours personne pour m'aider....

Est-ce c'est mon énoncé qui cause toujours pb...

Pour faire encore plus simple...

Quand je modifie mon formulaire de l'outil 101(colonne A du fichier), que cela remplace dans la colonne C du fichier la valeur présente dans la listbox typmodif sur toute les lignes ou 101 est présent...

Merci pour votre aide

Bonjour,

Pas spécialiste de ça (de rien au fait) mais si tu laisses un mot de passe comment les gens vont ils pouvoir t(aider ?

P.

Je suis là

je vais effectuer un balayage sur toute la colonne car les <100 et >90 là je ne comprends pas bien

J'ai laissé le mot de passe dans mon premier message....mdp= "greg"

Un essai simple si c'est ce que tu veux fais mois signe ....

non pas tellement,

ojectif:

je clique sur modifier un outil

exemple le 101

dans userform que apparait, je change le type (forêt, plaquettes, fraises, taraud...)

qd je clique en bas a droite sur modifier

le type que j'ai choisi dans ma listbox, doit se modifier automatiquement dans la colonne C pour tout les outils 101 (colonne A)

Bonjour

Greg81 a écrit :

qd je clique en bas a droite sur modifier

Ah pas vu pas pris

Pour info

Dans les frames "ATTACHEMENT", "RALLONGE" et "JAUGE TOTALE" tu as une frame supplémentaire

Merci pour l'info, je vais y regarder

Bonjour à tous,

Grâce à Nathalie, j'ai réussi à régler une partie de mon problème...

J'ai inséré à la fin du code de l'userform "formulaire_outil_modif" , une partie de son code que j'ai remodelé

Le code et le suivant:

Sheets("Gestion_Outil").Cells(NOUTILMODIF - 90, 3).Value = TYPMODIF

Dim Rép As Integer, F As Variant, Cel As Range

Rép = NOUTILMODIF

If NOUTILMODIF = "" Then

UserForm_Initialize: Exit Sub

Else

Formulaire_Outil_Modif.Hide

Ajouter_Outil_Modif.Hide

Application.ScreenUpdating = False

Sheets("Gestion_outil").Select

With ActiveSheet

For Each Cel In .Range("A10:A900").Cells

If Cel.Value = Rép Then

Cel.Offset(0, 2).Activate: ActiveCell.Value = TYPMODIF

End If

Next Cel

End With

Ajouter_Outil_Modif.Hide

Formulaire_Outil_Modif.Hide

End If

Et ca marche.

Cepandant,

si je dois faire ca pour la trentaine de textbox et listbox, cela va être très long en terme de temps de calcul et de boucle.

Je me suis donc dis que l'idéal était de copier toutes mes modifications pour un seul outil

Sheets("Gestion_Outil").Cells(NOUTILMODIF - 90, 3).Value = TYPMODIF

Sheets("Gestion_Outil").Cells(NOUTILMODIF - 90, 4).Value =

Sheets("Gestion_Outil").Cells(NOUTILMODIF - 90, 5).Value =...etc

Puis faire la boucle proposée par Nathalie en remplacant:

Cel.Offset(0, 2).Activate: ActiveCell.Value = TYPMODIF

Par la copie de la ligne entière ou presque.....et c'est mon problème

Cel.EntireRow.Select (pour la selection de la ligne entière)

mais je ne souhaite pas copier la ligne entière mais seulement

Range("C (Cel) :AO (Cel)").Select

mais je n'arrive pas à l'écrire en intégrant la variable cel qui determine la ligne du tableau

Pouvez vous m'aider....

merci

Bonjour à tous,

Ca avance petit a petit

Lorsque que je remplace Cel.Offset(0, 2).Activate: ActiveCell.Value = TYPMODIF

par

Range("C" & Cel - 90 & ":" & "AO" & Cel - 90).Select

Stop

Il me sélectionne bien ce que je souhaite copier à chaque je mon numéro d'outil est 101.

Reste à trouver la suite

N'hésitez pas à m'aider

Merci