Microsoft 365 Impossible de mettre à jour la valeur d'une cellule en VBA !

vgendron

XLDnaute Barbatruc

• 13 Septembre 2022

• #2

Bonjour

1) la feuille "Data" existe t elle bien?
2) FirsEmptyCodeRow te renvoie quoi comme valeur?
3) la cellule cible n'est elle pas affublée d'une liste de validation ( dans laquelle Test n'est pas autorisée)

sans fichier exemple pour voir, aucune autre idée..

 

Vote positif 0 Vote négatif

J

jlgarnier

XLDnaute Nouveau

• 13 Septembre 2022

• #3

vgendron à dit:

Bonjour

1) la feuille "Data" existe t elle bien?
2) FirsEmptyCodeRow te renvoie quoi comme valeur?
3) la cellule cible n'est elle pas affublée d'une liste de validation ( dans laquelle Test n'est pas autorisée)

sans fichier exemple pour voir, aucune autre idée..

Cliquez pour agrandir...

1 : oui, puisque je parviens à lire la valeur d'une cellule sans problème
2 : la variable vaut 2, soit la première ligne puisque la colonne est vide à part le label "Code" en B1
3 : non, il n'y a aucun format...

Comme il n'y a rien de secret, j'attache le fichier directement !

Merci pour ton aide !

 

Pièces jointes

• Customer code.xlsm

  26.5 KB · Affichages: 9

Vote positif 0 Vote négatif

Dranreb

XLDnaute Barbatruc

• 13 Septembre 2022

• #4

Bonsoir.
Dans une Function, pas une Sub ?
Si oui, comment est elle invoquée ?
Si c'est depuis une cellule c'est cuit, parce qu'on est forcément en plein calcul de la feuille, opération durant laquelle Excel ne procède à aucune modification du classeur. Il faudrait déjà noter les infos en consigne dans une collection VBA, et vider celle ci en appliquant les changements dans une Sub Worksheet_Calculate ou Workbook_SheetCalculate

 

Vote positif 0 Vote négatif

vgendron

XLDnaute Barbatruc

• 13 Septembre 2022

• #5

d'après mes essais, je rejoins donc Dranreb que je salue
une fonction "personalisée" n'est donc pas autorisée à modifier le contenu d'autres cellules du classeur
si tu commentes les 2 dernières lignes, la fonction donne bien le résultat attendu

 

Vote positif 0 Vote négatif

J

jlgarnier

XLDnaute Nouveau

• 14 Septembre 2022

• #6

Cela voudrait dire que :
1. je dois créer une Sub et non une Function ?
2. je ne peux pas modifier le contenu d'une cellule dans une fonction appelée par une autre cellule ?

Comment invoquer une Sub à partir d'une cellule, aussi simplement que =CreateCode(C2) ?

Merci d'avance pour vos conseils !

 

Vote positif 0 Vote négatif

Dranreb

XLDnaute Barbatruc

• 14 Septembre 2022

• #7

On ne peut pas modifier le classeur pendant les calculs. Mais juste après, si, dans une Sub Worksheet_Calculate du module de la feuille. Sinon, une macro classique qui modifie quelque chose s'affecte généralement à un bouton de formulaire.

Le plus classique c'est quand même plutôt de réagir au changement de contenu d'une cellule dans une Private Sub Worksheet_Change(ByVal Target As Range) du module de l'objet Worksheet représentant la feuille.

 

Dernière édition: 14 Septembre 2022

Vote positif 0 Vote négatif

J

jlgarnier

XLDnaute Nouveau

• 14 Septembre 2022

• #8

Ça s'arrange en effet en travaillant dans Worksheet_Change ! En revanche, j'ai un souci curieux : je cherche à connaitre la première cellule vide de la colonne B et j'ai écrit

VB:

Worksheets("Data").Range("B1").End(xlDown).Activate
FirstEmptyCellRow = Worksheets("Data").Range("B1").End(xlDown).Row

mais j'obtiens une erreur "la méthode Activate a échoué". Comment est-ce possible ?

 

Vote positif 0 Vote négatif

Dranreb

XLDnaute Barbatruc

• 14 Septembre 2022

• #9

Ne pourriez vous mettre cette plage sous forme de tableau, ce serait plus simple à gérer.

VB:

Dim RngLig As Range
Set RngLig = Workseets("Data").ListObjects(1).ListRows.Add.Range
RngLig(1, 1).Value = "Test"

 

Vote positif 0 Vote négatif

J

jlgarnier

XLDnaute Nouveau

• 14 Septembre 2022

• #10

Finalement, j'ai créé un boîte de dialogue pour recueillir les valeurs en entrée et le code que j'avais du mal à faire fonctionner dans la worksheet se comporte comme attendu dans la dialogbox !

Problèmes résolus donc ! Merci beaucoup à tous !

 

Vote positif 0 Vote négatif

Solution