Problème pasteSpecial formule et replace
Kornetmuse
-
Kornetmuse -
Kornetmuse -
Bonjour,
un petit soucis avec un code déjà existant que j'essaye de comprendre...
Avec le xlValues quand je regarde le résultat il me copie le résultat de la première ligne sur toutes les lignes...
si je met xlFormula il me copie bien la formule dans chaque cellule mais le problème c'est quand je veux utiliser mon replace !
En effet le replace cherche dans la formule et non dans le résultat de la formule...
du coup au lieu de me remplacer les "o" par des "oui" il me remplace mon "Vlookup" par des "vlouiouikup" -_-
après je ne comprend pas l'intérêt de son pasteSpecial puisqu'il utilise déjà un autofill...
bref.. si vous pouvez m'aider j'attends vos éclaircissement !
Range("N14").Select
ActiveCell.FormulaR1C1 = _
"=VLOOKUP(RC[-13],'[" & BASE & "]Base Transferts'!R4C1:R6000C79,79,0)"
If NBLIGNES > 14 Then
Selection.AutoFill Destination:=Range("N14:N" & NBLIGNES), Type:=xlFillDefault
End If
Range("B14:N" & NBLIGNES).Select
Selection.Copy
Range("B14").Select
Selection.PasteSpecial Paste:=xlValues, Operation:=xlNone, SkipBlanks:= _
False, Transpose:=False
Selection.Replace What:="o", Replacement:="Oui", LookAt:=xlPart, _
SearchOrder:=xlByRows, MatchCase:=False
un petit soucis avec un code déjà existant que j'essaye de comprendre...
Avec le xlValues quand je regarde le résultat il me copie le résultat de la première ligne sur toutes les lignes...
si je met xlFormula il me copie bien la formule dans chaque cellule mais le problème c'est quand je veux utiliser mon replace !
En effet le replace cherche dans la formule et non dans le résultat de la formule...
du coup au lieu de me remplacer les "o" par des "oui" il me remplace mon "Vlookup" par des "vlouiouikup" -_-
après je ne comprend pas l'intérêt de son pasteSpecial puisqu'il utilise déjà un autofill...
bref.. si vous pouvez m'aider j'attends vos éclaircissement !
Range("N14").Select
ActiveCell.FormulaR1C1 = _
"=VLOOKUP(RC[-13],'[" & BASE & "]Base Transferts'!R4C1:R6000C79,79,0)"
If NBLIGNES > 14 Then
Selection.AutoFill Destination:=Range("N14:N" & NBLIGNES), Type:=xlFillDefault
End If
Range("B14:N" & NBLIGNES).Select
Selection.Copy
Range("B14").Select
Selection.PasteSpecial Paste:=xlValues, Operation:=xlNone, SkipBlanks:= _
False, Transpose:=False
Selection.Replace What:="o", Replacement:="Oui", LookAt:=xlPart, _
SearchOrder:=xlByRows, MatchCase:=False
A voir également:
- Problème pasteSpecial formule et replace
- Formule si et - Guide
- Formule moyenne excel plusieurs colonnes - Guide
- Formule mathématique - Télécharger - Études & Formations
- Formule somme excel ligne - Guide
- Mise en forme conditionnelle excel formule - Guide
1 réponse
Désolé du double post mais je ne peux pas éditer le précédent...
donc j'ia un peu plus compris la syntaxe du code..
Range("N14").Select
ActiveCell.FormulaR1C1 = _
"=VLOOKUP(RC[-13],'[" & BASE & "]Base Transferts'!R4C1:R6000C79,79,0)"
If NBLIGNES > 14 Then
Selection.AutoFill Destination:=Range("N14:N" & NBLIGNES), Type:=xlFillDefault
End If
me permet de faire glisser la formule sur toutes les lignes...
et ensuite j'essaye de recopier par dessus les valeurs pour ne pas avoir les formules dans ma feuille excel grace a
Selection.PasteSpecial Paste:=xlValues, Operation:=xlNone, SkipBlanks:= _
False, Transpose:=False
mais c'est bien la le hic !
car si je ne fais pas mon pasteSpecial.. j'ai bien toutes mes personnes dans ma feuille. Alors qu'avec ce pasteSpecial (peu importe l'attribut de paste.. j'ai essayé xlValues, et xlPasteValues) je me retrouve avec la première ligne collé sur toutes les autres ! :'( !
je ne COMPREND PAS !
donc j'ia un peu plus compris la syntaxe du code..
Range("N14").Select
ActiveCell.FormulaR1C1 = _
"=VLOOKUP(RC[-13],'[" & BASE & "]Base Transferts'!R4C1:R6000C79,79,0)"
If NBLIGNES > 14 Then
Selection.AutoFill Destination:=Range("N14:N" & NBLIGNES), Type:=xlFillDefault
End If
me permet de faire glisser la formule sur toutes les lignes...
et ensuite j'essaye de recopier par dessus les valeurs pour ne pas avoir les formules dans ma feuille excel grace a
Selection.PasteSpecial Paste:=xlValues, Operation:=xlNone, SkipBlanks:= _
False, Transpose:=False
mais c'est bien la le hic !
car si je ne fais pas mon pasteSpecial.. j'ai bien toutes mes personnes dans ma feuille. Alors qu'avec ce pasteSpecial (peu importe l'attribut de paste.. j'ai essayé xlValues, et xlPasteValues) je me retrouve avec la première ligne collé sur toutes les autres ! :'( !
je ne COMPREND PAS !
