Problème avec ActiveCell.FormulaR1C1
Bonjour
je souhaite un peu d'aide si vous avez un peu de temps à me consacrer.
j'apprends le VBA depuis janvier et je suis bloquée sur un problème que je n'arrive pas à résoudre.
Il s'agit d'un formulaire.
Voilà mes codes :
'Trouver la dernière cellule E vide
Range("E" & DernLigne).Select
'Additionner la dernière cellule vide +1
ActiveCell.FormulaR1C1 = "=R[-1]C+1"
'Selectionner la dernière cellule de la colonne F
Range("F" & DernLigne).Select
'Completer la cellule avec 01
ActiveCell.FormulaR1C1 = "01"
'Selecetionner la cellule de la dernière collone G vide
Range("G" & DernLigne).Select
'Faire glisser pour étendre une série
ActiveCell.FormulaR1C1 = "=RC[-3]&RC[-2]&RC[-1]"
en PJ ce que j'ai : mon probleme est en jaune.
Qu'est ce qui ne vas pas ?
Aidez-moi SVP. Merci par avance
Bonjour
Pourquoi joindre un fichier :
Sur la charte du Forum
https://forum.excel-pratique.com/annonces/explications-et-regles-a-respecter-t13.html
Point 6 : • Pensez à joindre un fichier pour faciliter la compréhension du problème et augmenter les chances de vous faire aider (taille limite : 300ko, n'hésitez pas à compresser vos fichiers).
Cordialement
Bonjour,
Avec un classeur EXCEL c'est mieux
Mais je pense que ton problème vient de certaines cellules au format TEXTE comme pour les 08 ou 01
Bonjour
Ci joint le fichier.
Par ailleurs j'ai aussi mon "Champ_Ville" qui se reporte à la place de mon "Champ_Nom"
Merci pour votre aide
Bonjour
Merci M12
Vous pourriez m'expliquer ce code SVP ?
ActiveCell.FormulaR1C1 = ActiveCell.Offset(-1, 0) + 1
je comprends pas la partie ActiveCell.Offset(-1, 0) associée à FormulaRICI.
Merci
Bonjour,
Activecell ---> cellule active
Offset ---> décaler
(-1,0) --> ligne -1, même colonne
et +1
Sache que la touche F1 du clavier en étant sur une fonction ouvre l'aide
par ex: https://msdn.microsoft.com/fr-fr/library/office/ff840060(v=office.15).aspx
Merci !
ça bloque au ActiveCell.FormulaR1C1 = ActiveCell.Offset(-1, 0) + 1
ça ne veut toujours pas ;(
du coup j'ai essayé ceci :
'Trouver la dernière cellule E vide
Range("E" & DernLigne).Select
'Additionner la dernière cellule vide +1
ActiveCell.FormulaR1C1 = Range("E" & Rows.Count).End(xlUp).Select + 1