Ligne + ligne -

[WDAndCo]

Bonjour le Forum

Je voudrais dans une page "Bordereau" avec des boutons + et - copier une ligne d'une autre page "Base" sur la page actuelle en ligne 1 (cette ligne 1 est cachée)

Voici les macros affectés aux boutons :

Sub Moins ()
If LigneM = 2 Then LigneM = 3 ' Sur la base la ligne 1 sont les titres
LigneM = LigneM - 1
Sheets ("Base") .Select
Rows (LigneM) .Select
Selection.Copy
Sheets("Bordereau") .Select
Rows("1:1") .Select
ActiveSheet.Paste
End Sub

Sub Plus ()
If LigneM = LigneMaxi Then LigneM = LigneM -1 ' Sur la base la LigneMaxi = la dernière ligne
LigneM = LigneM + 1
Sheets ("Base") .Select
Rows (LigneM) .Select
Selection.Copy
Sheets("Bordereau") .Select
Rows("1:1") .Select
ActiveSheet.Paste
End Sub

Pourquoi cela ne fonctionne pas ?

J'aurais aimé aussi avoir des explications sur la "Toupie" en lieu est place des deux boutons.

D'avance merci

Dominique

 

[Compte Supprimé 979]

Re : Ligne + ligne -

Salut WDandCo 😉

Sub Moins ()
If LigneM = 2 Then LigneM = 3 ' Sur la base la ligne 1 sont les titres
LigneM = LigneM - 1
Sheets ("Base").Rows(LigneM).Copy
Sheets("Bordereau").Rows("1:1").Insert Shift:=xlDown
End Sub

Sub Plus ()
If LigneM = LigneMaxi Then LigneM = LigneM -1 ' Sur la base la LigneMaxi = la dernière ligne
LigneM = LigneM + 1
Sheets ("Base").Rows(LigneM).Copy
Sheets("Bordereau").Rows("1:1").Insert Shift:=xlDown
End Sub

Pour le SpinButton tu obtient la valeur de la toupie en faisant tout simplement

Sheets("Bordereau").SpinButton1.Value

A+

 

[WDAndCo]

Re : Ligne + ligne -

Bonsoir le Forum

Merci BrunoM45 (avec retard), mais le code fourni, bloque sur la ligne 1 et la copie ce fait sur une nouvelle ligne 1.
J'ai joint un petit fichier.

D'avance merci pour l'aide.

Dominique

 

[kjin]

Re : Ligne + ligne -

bonsoir,

Je voudrais dans une page "Bordereau" avec des boutons + et - copier une ligne d'une autre page "Base" sur la page actuelle en ligne 1 (cette ligne 1 est cachée)

Copier quelle ligne ?
A quoi servent les boutons plus et moins s'il s'agit de copier une ligne ?
A quoi sert la toupie ?
Bref, rien compris...
A+
kjin

 

[Fo_rum]

Re : Ligne + ligne -

Salut

avec ce que j'ai compris : le numéro de ligne doit être conservé (déclaration en début de Module ou pour la toupie, cellule liée).
Il semble que Rows(variable) pose problème.