Bonjour,
J'ai de nouveau un Pb avec la récupération de la valeur d'une cellule "nommée ", je m'explique:j'ai un classeur avec 1 feuille "fiche saisie client", 1 "consultation fiche" 1 "base"; 1"Param"
Quand je modifie ds des données ds ""consultation fiche" celle-ci s'affiche en 2:2 de cette feuille et en suite, je voudrai copier cette ligne à la place de l'ancienne) dans la feuille "base" en A:"PARAM_NO_LIGNE"+1. "PARAM_NO_LIGNE" étant le calcul du n° de ligne de l'enregistrement en cours de lecture "ds "consultation fiche" (auquel je rajoute 1 pour "sauter" la ligne de titre).Et j'ai soit erreur de syntaxe soit après motif une erreur 13 type incompatible qd je mets des [] à la place des "" !!!
Voici le code employé (encore une fois, je suis débutant en vba si vous pouvez m'expliquer un peu vos solutions, çà me permet d'apprendre ...,merci):
Sub Modification()
'
' Modification Macro
'
'
Range("A3:AF3").Select
Selection.Copy
With Sheets("Base")
.Rows(Range ("A") & ("PARAM_NO_LIGNE").Value + 1).Select
Selection.PasteSpecial Paste:=xlValues, Operation:=xlNone, SkipBlanks:= _
False, Transpose:=False
End With
Sheets("Consultation fiche").Select
Range("C8:C24").Select
ActiveWindow.ScrollColumn = 1
ActiveWindow.SmallScroll ToRight:=-22
Range("C8:C24,J7:J23").Select
Range("J7").Activate
Application.CutCopyMode = False
Selection.ClearContents
End Sub
J'ai de nouveau un Pb avec la récupération de la valeur d'une cellule "nommée ", je m'explique:j'ai un classeur avec 1 feuille "fiche saisie client", 1 "consultation fiche" 1 "base"; 1"Param"
Quand je modifie ds des données ds ""consultation fiche" celle-ci s'affiche en 2:2 de cette feuille et en suite, je voudrai copier cette ligne à la place de l'ancienne) dans la feuille "base" en A:"PARAM_NO_LIGNE"+1. "PARAM_NO_LIGNE" étant le calcul du n° de ligne de l'enregistrement en cours de lecture "ds "consultation fiche" (auquel je rajoute 1 pour "sauter" la ligne de titre).Et j'ai soit erreur de syntaxe soit après motif une erreur 13 type incompatible qd je mets des [] à la place des "" !!!
Voici le code employé (encore une fois, je suis débutant en vba si vous pouvez m'expliquer un peu vos solutions, çà me permet d'apprendre ...,merci):
Sub Modification()
'
' Modification Macro
'
'
Range("A3:AF3").Select
Selection.Copy
With Sheets("Base")
.Rows(Range ("A") & ("PARAM_NO_LIGNE").Value + 1).Select
Selection.PasteSpecial Paste:=xlValues, Operation:=xlNone, SkipBlanks:= _
False, Transpose:=False
End With
Sheets("Consultation fiche").Select
Range("C8:C24").Select
ActiveWindow.ScrollColumn = 1
ActiveWindow.SmallScroll ToRight:=-22
Range("C8:C24,J7:J23").Select
Range("J7").Activate
Application.CutCopyMode = False
Selection.ClearContents
End Sub