Nomenclature intelligente
Résolu
Theo_CEREST
Messages postés
2
Date d'inscription
Statut
Membre
Dernière intervention
-
Theo_CEREST Messages postés 2 Date d'inscription Statut Membre Dernière intervention -
Theo_CEREST Messages postés 2 Date d'inscription Statut Membre Dernière intervention -
A voir également:
- Nomenclature intelligente
- Nomenclature processeur amd - Guide
- Serrure intelligente - Guide
- Forfaits montre intelligente - Forum Accessoires & objets connectés
- Fourchette intelligente darty - Guide
- Ram nomenclature - Guide
2 réponses
bonjour,
d'après ce que j'ai compris, a mettre dans un module:
d'après ce que j'ai compris, a mettre dans un module:
Option Explicit
Sub For_X_to_Next_Ligne()
Dim FL1 As Worksheet, NoCol As Integer
Dim NoLig As Long, Var As Variant
Set FL1 = Worksheets("Feuil1") 'a adapter
NoCol = 3 'lecture de la colonne C
For NoLig = Split(FL1.UsedRange.Address, "$")(4) To 1 Step -1 'on boucle en remontant
Var = FL1.Cells(NoLig, NoCol)
If Var = "Commerce modifiée" Then 'terme à chercher
Rows(NoLig & ":" & NoLig).Copy 'copie ligne
Rows(NoLig & ":" & NoLig).Insert Shift:=xlDown 'insertion ligne
FL1.Cells(NoLig, NoCol + 2) = "(" & FL1.Cells(NoLig, NoCol + 2) & ")" 'colonne E parenthèse
FL1.Cells(NoLig + 1, NoCol + 3) = "(" & FL1.Cells(NoLig + 1, NoCol + 3) & ")" 'colonne F parenthèse
End If
Next
Set FL1 = Nothing
End Sub
Bonjour Le Pivert,
je tiens avant tout à vous remercier d'avoir pris le temps de me répondre.
Votre code fonctionne parfaitement bien! il fait tout ce que je cherchais à faire.
J'admets que seul je n'aurais jamais pu arriver à un tel code, très avancé pour moi qui ne suis pas du métier!
Je vais juste faire une petite recherche encore afin de faire en sorte que le nom de la feuille soit mis à jour de manière automatique, ce qui ne posera pas de soucis! (car le nom de la feuille est egal au nom du fichier, or je le récupère déjà plus haut dans moa macro!)
Merci encore pour votre aide, elle m'a été très précieuse.
Bonne journée,
Théo
je tiens avant tout à vous remercier d'avoir pris le temps de me répondre.
Votre code fonctionne parfaitement bien! il fait tout ce que je cherchais à faire.
J'admets que seul je n'aurais jamais pu arriver à un tel code, très avancé pour moi qui ne suis pas du métier!
Je vais juste faire une petite recherche encore afin de faire en sorte que le nom de la feuille soit mis à jour de manière automatique, ce qui ne posera pas de soucis! (car le nom de la feuille est egal au nom du fichier, or je le récupère déjà plus haut dans moa macro!)
Merci encore pour votre aide, elle m'a été très précieuse.
Bonne journée,
Théo
