Transfère de formule
Résolu
YOUPI!OUAI!
Messages postés
92
Date d'inscription
Statut
Membre
Dernière intervention
-
Vaucluse Messages postés 26496 Date d'inscription Statut Contributeur Dernière intervention -
Vaucluse Messages postés 26496 Date d'inscription Statut Contributeur Dernière intervention -
Bonjour,
Vaucluse m' à apporté une solution au problème que je vous ai soumis intitulé:
"Extraction de données multiples" le 27 août 20015, et je l'en remercie.
J'ai néanmoins un petit problème. Dans le dossier définitif, je saisi les données dans une autre feuille que celles ou elles sont enregistrées.
Après validation les dites données, s'accumule dans l'ordre d'enregistrement avec un numéro d'attribution.
Le petit problème, est lorsque j'ajoute une ligne de données selon la procédure d'écrite ci-dessus, l'enregistrement ne prend pas la formule qu'il m'a donné Pour info:
=SI(A2=$F$2;MAX($E$1:E1)+1;"")
N.B: Pour l'enregistrement j'utilise une macro dont voici le code:
Private Sub Transferer_Click()
Dim DerCel As Range
Worksheets("ENREGISTREMENT").Range("c3:h3").Copy 'Feuille ou je saisi les données
With Worksheets("DONNEENET") 'feuille on sont enregistrées les données
Set DerCel = .Range("A" & Rows.Count).End(xlUp)
DerCel.Offset(1) = Val(DerCel) + 1
.Range("B" & DerCel.Row + 1).Resize(1, 5).PasteSpecial Paste:=xlPasteValues
Application.CutCopyMode = False
End With
End Sub
Si vous savez la solution j'en serai très heureux
Et comme je sent que vous allez me demander de voir le fichier, le voici.
https://www.cjoint.com/c/EHCoGyQ6p0i
Vaucluse m' à apporté une solution au problème que je vous ai soumis intitulé:
"Extraction de données multiples" le 27 août 20015, et je l'en remercie.
J'ai néanmoins un petit problème. Dans le dossier définitif, je saisi les données dans une autre feuille que celles ou elles sont enregistrées.
Après validation les dites données, s'accumule dans l'ordre d'enregistrement avec un numéro d'attribution.
Le petit problème, est lorsque j'ajoute une ligne de données selon la procédure d'écrite ci-dessus, l'enregistrement ne prend pas la formule qu'il m'a donné Pour info:
=SI(A2=$F$2;MAX($E$1:E1)+1;"")
N.B: Pour l'enregistrement j'utilise une macro dont voici le code:
Private Sub Transferer_Click()
Dim DerCel As Range
Worksheets("ENREGISTREMENT").Range("c3:h3").Copy 'Feuille ou je saisi les données
With Worksheets("DONNEENET") 'feuille on sont enregistrées les données
Set DerCel = .Range("A" & Rows.Count).End(xlUp)
DerCel.Offset(1) = Val(DerCel) + 1
.Range("B" & DerCel.Row + 1).Resize(1, 5).PasteSpecial Paste:=xlPasteValues
Application.CutCopyMode = False
End With
End Sub
Si vous savez la solution j'en serai très heureux
Et comme je sent que vous allez me demander de voir le fichier, le voici.
https://www.cjoint.com/c/EHCoGyQ6p0i
A voir également:
- Transfère de formule
- Formule si et - Guide
- Formule moyenne excel plusieurs colonnes - Guide
- Formule mathématique - Télécharger - Études & Formations
- Formule somme excel colonne - Guide
- Excel mise en forme conditionnelle formule - Guide
2 réponses
Re
Normal puisque vous ne collez que les valeurs et pas les formules
une solution ici
https://www.cjoint.com/c/EHCpBtqQ1NX
principe:
feuille DONNEENET, la formule est inscrite en G2
insérer un tableau de A1 à G2
lors de la création d'une nouvelle ligne, la formule incluse dans le tableau s'incrémente automatiquement.
La macro ne transfère plus H3 mais est à corriger pour C3:G3 au lieu de C3:H3
crdlmnt
Errare humanum est, perseverare diabolicum
Normal puisque vous ne collez que les valeurs et pas les formules
une solution ici
https://www.cjoint.com/c/EHCpBtqQ1NX
principe:
feuille DONNEENET, la formule est inscrite en G2
insérer un tableau de A1 à G2
lors de la création d'une nouvelle ligne, la formule incluse dans le tableau s'incrémente automatiquement.
La macro ne transfère plus H3 mais est à corriger pour C3:G3 au lieu de C3:H3
crdlmnt
Errare humanum est, perseverare diabolicum
La PJ est codé illisible
Merci beaucoup vaucluse