pommepomme
XLDnaute Nouveau
Bonjour
Toute nouvelle sur ce forum j'ai besoin de votre aide
Je suis débutante sur excel
J'ai téléchargé dans autres/ bases de données /le dossier "fichiers clients"
Pour ajouter un nouveau client pas de souci en revanche impossible de modifier une fiche client
voiçi le message
erreur d'execution 1004
impossible de definir la propriete top de windows
et au deboguage
Sub Supprimer_un_client()
If MsgBox("confirmation de la suppression du client?", vbYesNo, "suppression") = vbYes Then
Sheets("BD").Visible = True
Sheets("PARAM").Visible = True
Sheets("BD").Rows([PARAM_NO_LIGNE] + 1).Delete Shift:=xlUp
If [nb_enreg_bd] < [PARAM_NO_LIGNE] Then [PARAM_NO_LIGNE] = [PARAM_NO_LIGNE] - 1
Sheets("BD").Visible = False
Sheets("PARAM").Visible = False
End If
End Sub
Sub aller_a_enreg_suiv()
If [PARAM_NO_LIGNE] < [nb_enreg_bd] Then
[PARAM_NO_LIGNE] = [PARAM_NO_LIGNE] + 1
End If
End Sub
Sub aller_a_enreg_prec()
If [PARAM_NO_LIGNE] > 1 Then
[PARAM_NO_LIGNE] = [PARAM_NO_LIGNE] - 1
End If
End Sub
Sub Modification()
'
' Modification Macro
' Macro enregistrée le 9/03/2009 par X XX
'
'
Range("A2:X2").Select
Selection.Copy
With ActiveWindow
.Top = -6 c'est cette ligne là qui coince
.Left = -3
End With
Sheets("BD").Select
Range("A" & [PARAM_NO_LIGNE] + 1).Select
Selection.PasteSpecial Paste:=xlValues, Operation:=xlNone, SkipBlanks:= _
False, Transpose:=False
With ActiveWindow
.Top = -1
.Left = 0
End With
Sheets("Modifier le client").Select
je travaille avec la version 2003 mais je peux installer la 2007
suis vraiment neophyte donc si quelqu'un peux me donner un coup de main cela serait sympa
merci d'avance
pommepomme
Toute nouvelle sur ce forum j'ai besoin de votre aide
Je suis débutante sur excel
J'ai téléchargé dans autres/ bases de données /le dossier "fichiers clients"
Pour ajouter un nouveau client pas de souci en revanche impossible de modifier une fiche client
voiçi le message
erreur d'execution 1004
impossible de definir la propriete top de windows
et au deboguage
Sub Supprimer_un_client()
If MsgBox("confirmation de la suppression du client?", vbYesNo, "suppression") = vbYes Then
Sheets("BD").Visible = True
Sheets("PARAM").Visible = True
Sheets("BD").Rows([PARAM_NO_LIGNE] + 1).Delete Shift:=xlUp
If [nb_enreg_bd] < [PARAM_NO_LIGNE] Then [PARAM_NO_LIGNE] = [PARAM_NO_LIGNE] - 1
Sheets("BD").Visible = False
Sheets("PARAM").Visible = False
End If
End Sub
Sub aller_a_enreg_suiv()
If [PARAM_NO_LIGNE] < [nb_enreg_bd] Then
[PARAM_NO_LIGNE] = [PARAM_NO_LIGNE] + 1
End If
End Sub
Sub aller_a_enreg_prec()
If [PARAM_NO_LIGNE] > 1 Then
[PARAM_NO_LIGNE] = [PARAM_NO_LIGNE] - 1
End If
End Sub
Sub Modification()
'
' Modification Macro
' Macro enregistrée le 9/03/2009 par X XX
'
'
Range("A2:X2").Select
Selection.Copy
With ActiveWindow
.Top = -6 c'est cette ligne là qui coince
.Left = -3
End With
Sheets("BD").Select
Range("A" & [PARAM_NO_LIGNE] + 1).Select
Selection.PasteSpecial Paste:=xlValues, Operation:=xlNone, SkipBlanks:= _
False, Transpose:=False
With ActiveWindow
.Top = -1
.Left = 0
End With
Sheets("Modifier le client").Select
je travaille avec la version 2003 mais je peux installer la 2007
suis vraiment neophyte donc si quelqu'un peux me donner un coup de main cela serait sympa
merci d'avance
pommepomme