VBA Recopie incrémentée erronée

Résolu/Fermé

FafaM - Modifié le 17 déc. 2020 à 15:49
FafaM - 18 déc. 2020 à 13:29

Bonjour,
Je dois recopier MAR dans toute la colonne D et c'est MAR. qui se recopie (Excel prend ma saisie pour un mardi). J'ai essayé de saisir ma variable (wVAL1) en D1 et D2, de changer xlFillDefault en xlFillValues mais cela ne fonctionne pas.
Quelqu'un peut-il m'aider ?
Merci

Range("D1").Select
            ActiveCell.FormulaR1C1 = wVAL1
            Range("D2").Select
            ActiveCell.FormulaR1C1 = wVAL1
            
            Set plage = Range("D1:D2")
            plage.AutoFill Destination:=Range("D1:D" & lifin), Type:=xlFillDefault

Configuration: Windows / Chrome 84.0.4147.105

A voir également:

Excel option de recopie incrémentée ne fonctionne plus
Liste déroulante excel - Guide
Formule excel - Guide
Si et excel - Guide
Aller à la ligne excel - Guide
Mise en forme conditionnelle excel - Guide

6 réponses

Réponse 1 / 6

pijaku Messages postés 12263 Date d'inscription jeudi 15 mai 2008 Statut Modérateur Dernière intervention 4 janvier 2024 2 744
17 déc. 2020 à 15:50

Bonjour,

Avec si peu d'informations, personne ne pourra t'aider.

Que vaut la variable wVAL1?
Ce serait déjà un bon début...

Sinon, que souhaites-tu faire?

Réponse 2 / 6

FafaM
17 déc. 2020 à 16:19

Ok, je vais détailler plus. Ma variable wVAL1 est déclarée en String. C'est la valeur d'une cellule (en texte) qui peut être NTE, PAR etc. mais c'est MAR qui pose problème. Les autres valeurs se recopient correctement. Je cherche à recopier cette valeur MAR dans toute la colonne D de la 1ère à la dernière ligne complétée du tableau (pour cela aucun problème, cela fonctionne). J'espère avoir été claire.

Réponse 3 / 6

pijaku Messages postés 12263 Date d'inscription jeudi 15 mai 2008 Statut Modérateur Dernière intervention 4 janvier 2024 2 744
17 déc. 2020 à 16:29

Essaye ceci :

Range("D1:D" & ligfin).Formula = "MAR"

Réponse 4 / 6

FafaM
18 déc. 2020 à 10:52

Hélas cela ne fonctionne pas...

Vous n’avez pas trouvé la réponse que vous recherchez ?

Posez votre question

Réponse 5 / 6

pijaku Messages postés 12263 Date d'inscription jeudi 15 mai 2008 Statut Modérateur Dernière intervention 4 janvier 2024 2 744
18 déc. 2020 à 10:56

Pas bonjour non plus,

Je teste toujours (ou quasiment), mes codes.

Celui-ci, je l'ai testé hier et retenté à l'instant.

Il fonctionne.

Si cela ne fonctionne pas chez toi, c'est un problème qui se trouve ailleurs dans le code.
Pourrais-tu nous transmettre :
> l'intégralité du code,
> les valeurs des variables quand "cela ne fonctionne pas".

Réponse 6 / 6

FafaM
Modifié le 18 déc. 2020 à 13:39

J'ai trouvé la solution :

Range("D1:D2").Copy
Range("D1:D" & lifin).PasteSpecial xlPasteValues

Et là c'est bien MAR qui se recopie.

Merci beaucoup pour votre aide

Discussions similaires

Option de connexion désactivé

Pourquoi mes flèches de clavier ne fonctionnent pas sur Excel ?

Discussions similaires

Newsletters