deplacer une ligne sur autre onglet

mix770 · 15 Avril 2011

Bonjour,
je vais de nouveau faire appel aux pro je suis bloqué j'ai besoin d'une macro qui déplace la ligne sur l'onglet travaux en cours vers l'onglet travaux achevés quand le mot clôturé est inscrit dans la colonne état
merci à vous
cordialement
mix770

mix770 · 16 Avril 2011

Re: Re : deplacer une ligne sur autre onglet

re,
alors comment faire pour cumuler plusieurs VBA sur une même feuille
a+

mix770 · 16 Avril 2011

Re: Re : deplacer une ligne sur autre onglet

re
alors comment mettre plusieurs VBA sur la même feuille
cordialement
a+

Hippolite · 16 Avril 2011

Re : deplacer une ligne sur autre onglet

Re,
Il ne peut y avoir qu'une seule macro appelée Sub Worksheet_Change dans une feuille,
Si tu as besoin de plusieurs macros commandées par Worksheet_Change, tu les appelles toutes dans la même Sub Worksheet_Change en mettant des tests sur Target pour ne faire exécuter que ce qui est nécessaire.
A+

kjin · 16 Avril 2011

Re : Re: Re : deplacer une ligne sur autre onglet

Bonjour,

kjin à dit:
@Mix : cette macro annule est remplace la précédente !!!

mix770 à dit:
la fatigue à eu raison de moi hier, alors j'ai bien insérer le VBA dans un module comme indiqué dans #4

Moi je ne lis pas la même chose que toi, et encore moins qu'il faut la placer dans un module !
Donc cela veut dire que dans le fichier, il faut remplacer la procédure Sub Worksheet_Change par celle fournie dans le message 4

mix770 à dit:
il copie dans l'onglet travaux achevés, le problème est qu'il copie le tableau entier et non la ligne renseignée clôturée, et le top serait qu'il déplace la ligne et non la copie

Certainement pas !
Un peu d'effort que diable
kjin😡

mix770 · 16 Avril 2011

eh ben !!!
je vois que mon problème ne met pas tout le monde d'accord 😱😱
donc les 2 vba dans la même feuille je doit les nommer différemment mais comment, car cela bloque toujours sur nom ambigu !!!
je pense que je ne suis pas loin de gagner le prix du boulet du jour 🙄🙄
mais je suis passionné par excel et chaque petite astuce que je comprends est un petit moment de satisfaction
cordialement

Hippolite · 16 Avril 2011

Re : deplacer une ligne sur autre onglet

Re,
Sub Worksheet_Change est une procédure événementielle qui se place uniquement dans une feuille et se déclenche automatiquement quand tu modifies des cellules de la feuille, ces cellules modifiées sont représentées par Target.
Si tu veux en tester plusieurs, gardes en une seule et mets les autres en commentaires ou supprime les.
A+

kjin · 16 Avril 2011

Re : Re: deplacer une ligne sur autre onglet

Re, 😡😡😡

mix770 à dit:
je vois que mon problème ne met pas tout le monde d'accord

Je ne vois pas ce qui te permets d'affirmer ça !

kjin à dit:
il faut remplacer la procédure Sub Worksheet_Change par celle fournie dans le message 4

mix770 à dit:
donc les 2 vba dans la même feuille je doit les nommer différemment mais comment, car cela bloque toujours sur nom ambigu !!!

Tu as vraiment bien lu ?!!!

mix770 à dit:
je pense que je ne suis pas loin de gagner le prix du boulet du jour

Sans commentaire !
kjin

mix770 · 16 Avril 2011

😱😱😱😱😱😱😱
euh c'est quoi le sentiment après la honte !!!!!!!!
je suis tellement bloquer sur une idée que je ne voit plus rien
ALORS les gars RESPECT total cela fonctionne du tonnerre
en revanche dernier problème et après je me cache dans mon trou...
quand il copie la ligne dans le tableau travaux en cours il perd les formules "recherchev" des colonnes B.C.D.E
merci
🙂

kjin · 16 Avril 2011

Re : Re: deplacer une ligne sur autre onglet

Re,

mix770 à dit:
ALORS les gars...

Mouais !🙄
Remplaces l'ancienne macro par celle-ci, j'avais oublié qu'il y avait des formules

Code:

Private Sub Worksheet_Change(ByVal Target As Range)
Dim adresse$, x&, c As Range
If Target.Count > 1 Or Target.Row < 4 Then Exit Sub
x = Target.Row
Set c = Range("A" & x & ":O" & x)
Select Case Target.Column
    Case 1
        adresse = [A65000].End(xlUp).Address(1, 1)
        If Target.Address = adresse Then
            Application.EnableEvents = False
            c.Copy Target.Offset(1)
            c.Offset(1).SpecialCells(xlCellTypeConstants).ClearContents
            Application.EnableEvents = True
        End If
    Case 15
        If LCase(Target) = "cloturé" Then
            c.Copy Feuil1.Range("A65000").End(xlUp).Offset(1)
            Rows(x).Delete
        End If
    End Select
End Sub

Tu as bien lu "remplacer" cette fois ?
A+
kjin

mix770 · 16 Avril 2011

Re: Re : Re: deplacer une ligne sur autre onglet

Kjin,
c'est fantastique, c'est la première fois que je bloque comme ça comme un c....
avec mes excuses je vous ais fait perdre du temps,
un grand merci et bravo pour la maitrise
très cordialement
Mix770

mix770 · 17 Avril 2011

bonsoir,
toujours sur le même tableau dans l'onglet travaux en cours, je voulais proteger à minima les cellules avec les fonctions rechervev pour éviter les plantage mais en verrouillant et laissant le maxi de liberté cela ne duplique plus les lignes avec fonction ou liste
y a t il une macro pour contourner
merci

Hippolite · 17 Avril 2011

Re : deplacer une ligne sur autre onglet

Bonjour,
Pour que les macros ne soient pas concernées par la protection, il faut protéger en vba avec Protect et UserInterfaceOnly:=True

A placer dans le module "thisworkbook", se déclenche à l'ouverture du classeur :

Code:

Option Explicit
Private Sub Workbook_Open()
Feuil1.Protect "MotDePasse", userinterfaceonly:=True
End Sub

A+

mix770 · 17 Avril 2011

bonjour Hippolote,
j'ai dans thisworkbook le VBA suivant
" Private Sub workbook_open()
Sheets("ACCUEIL").Activate End Sub"
qui force a ouvrir sur la page d'accueil comment peux t'on mettre les 2 vba
merci a toi pour ta réponse
cordialement
Mix770

Hippolite · 17 Avril 2011

Re : deplacer une ligne sur autre onglet

Re,
Tu mets les deux dans Private Sub workbook_open()
avec la protection en premier
A+

mix770 · 18 Avril 2011

Re : deplacer une ligne sur autre onglet

Bonjour Hippolite,
je suis tout neuf dans le VBA et je doit admètre que contrairement aux formules j'ai vraiment du mal, j'ai acheter un bouquin pour me plonger dans le VBA en attendant je cale, je n'arrive pas ou c'est un bloquage ou la macro ne fonctionne pas concrètement en mettant les deux cela donnerai cela ?:
Private Sub Workbook_open()
Feuil2.Protect "cactus", userinterfaceonly:=True
End Sub
Private Sub Workbook()
Sheets("ACCUEIL").Activate
End Sub
je te remercie et avec mes excuses pour le temps que je te fait perdre
cordialement
Mix770

deplacer une ligne sur autre onglet

mix770

XLDnaute Impliqué

Pièces jointes

mix770

XLDnaute Impliqué

mix770

XLDnaute Impliqué

Hippolite

XLDnaute Accro

kjin

XLDnaute Barbatruc

mix770

XLDnaute Impliqué

Hippolite

XLDnaute Accro

kjin

XLDnaute Barbatruc

Pièces jointes

mix770

XLDnaute Impliqué

kjin

XLDnaute Barbatruc

mix770

XLDnaute Impliqué

mix770

XLDnaute Impliqué

Hippolite

XLDnaute Accro

mix770

XLDnaute Impliqué

Hippolite

XLDnaute Accro

mix770

XLDnaute Impliqué

Discussions similaires

deplacer une ligne sur autre onglet

XLDnaute Impliqué

Pièces jointes

XLDnaute Impliqué

XLDnaute Impliqué

XLDnaute Accro

XLDnaute Barbatruc

XLDnaute Impliqué

XLDnaute Accro

XLDnaute Barbatruc

Pièces jointes

XLDnaute Impliqué

XLDnaute Barbatruc

XLDnaute Impliqué

XLDnaute Impliqué

XLDnaute Accro

XLDnaute Impliqué

XLDnaute Accro

XLDnaute Impliqué

Discussions similaires

Privacy & Transparency

Privacy & Transparency