Récuperer valeur cellule pour variable

Créer une discussion
Répondre
  • Initiateur de la discussion Initiateur de la discussion FOUQUET Yves
  • Date de début Date de début

Boostez vos compétences Excel avec notre communauté !

Rejoignez Excel Downloads, le rendez-vous des passionnés où l'entraide fait la force. Apprenez, échangez, progressez – et tout ça gratuitement ! 👉 Inscrivez-vous maintenant !

S'inscrire
F

FOUQUET Yves

XLDnaute Occasionnel
Bonsoir,

Avez vous 5 mn pour m'aider...
Je débute à peine dans VisualBasic.
Mon problème: Récupérer la valeur d'une cellule d'excel pour positionner l'écriture de nouvelle ligne dans mon tableur.

Dim Nbr As Variant 'Ma variable
With Sheets("Feuil2") 'Ma feuille Excel

'feuil2 est ma feuille de calcul Excel
'dans la cellule C6 il y a un nombre entier 23
'Je voudrais le récupérer pour le mettre dans la variable Nbr
'Cette variable servant à me positionner sur une ligne précise de mon tableur
'pour integrer des données de saisie
'-----------------------------------------------------------------------------------------------------------------------
.Range(Nbr).Value = ("C" & 6) 'C'est là que ça ne marche pas!!

' Là j'intégre à partir de Nbr

L = .Range("a" & Nbr + 7).End(xlUp).Row + 1 'Permet de se positionner sur la ligne de tableau définie par Nbr

.Range("A" & L).Value = CDate(TextBox1) 'Insère la donnée de la textbox1 dans la colonne A comme une date
.Range("B" & L).Value = ComboBox1 'Insère la donnée de la liste déroulante dans la colonne B
.Range("D" & L).Value = ComboBox2
.Range("E" & L) = ValeurTBx(TextBox5) 'Insére la donnée formatée monétaire dans la colonne E
.Range("H" & L).Value = ComboBox3
.Range("I" & L).Value = TextBox2
.Range("J" & L).Value = TextBox3
.Range("K" & L).Value = TextBox4
.Range("F" & L).Value = "," ' Colonne de pointage avec relevé banque, passe à "," par défaut
'----------------------------------------------------------------------------------------------------------------------
Voilà si quelqu'un peut m'aider car je galère...
Merci d'avance.
Yves
 
Trier par date Trier par votes
Bonjour Yves, le forum
En jetant un coup d'oeil je ne vois pas de valeur attribuée a Nbr.
Peut etre c'est ce que tu as essayé de faire avec ca .Range(Nbr).Value = ("C" & 6).

Essaie plutot
VB: 
Nbr = Range("C6").value

Cordialement

A
 
Vote positif 0 Vote négatif
Merci de votre réponse. Oui c'est ce que j'ai essayé...
Désolé mais votre solution ne marche pas non plus. Je l'avais essayé.

'**********************************
If MsgBox("Etes-vous certain de vouloir INSERER cette nouvelle ligne comptable ?", vbYesNo, "Demande de confirmation") = vbYes Then
'condition : si oui au message

Dim L As Long

Dim Nbr As Integer
With Sheets("Feuil2")
'feuil2 est ma feuille de calcul Excel
'dans la cellule C6 il y a un nombre entier 23
'Je voudrais le récuperer pour le mettre dans la variable Nbr
'Cette variable servant à me positionner sur une ligne précise de mon tableur
'pour integrer des données de saisie

Nbr = Range("C6").Value 'Ca ne marche pas!! Incompatilité de type à la ligne suivante ou j'utilise Nbr...
' j'utilise une variable integer et mon format de cellule Excel est "standard" à valeur 23

' Là j’intègre à partir de Nbr

L = .Range("a" & Nbr).End(xlUp).Row + 1 'Permet de se positionner sur la ligne de tableau définie par Nbr

.Range("A" & L).Value = CDate(TextBox1) 'Insère la donnée de la textbox1 dans la colonne A comme une date
.Range("B" & L).Value = ComboBox1 'Insère la donnée de la liste déroulante dans la colonne B
.Range("D" & L).Value = ComboBox2
.Range("E" & L) = ValeurTBx(TextBox5) 'Insére la donnée formatée monétaire dans la colonne E
.Range("H" & L).Value = ComboBox3
.Range("I" & L).Value = TextBox2
.Range("J" & L).Value = TextBox3
.Range("K" & L).Value = TextBox4
.Range("F" & L).Value = "," ' Colonne de pointage avec relevé banque, passe à "," par défaut

If Controls("ComboBox1") = "CAISSE" Then .Range("F" & L).Value = "x"
If Controls("ComboBox2") = "" Then .Range("F" & L).Value = " "
'End If

End With
'**********************************

J'ai cherché sur le forum mais pas vu de solution adaptée à mon problème. certainement trop simple sauf pour moi... Lol.
Cordialement.
 
Vote positif 0 Vote négatif
Bonsoir le fil,

FOUQUET Yves
La coutume avant de poster une nouvelle question c'est de se manifester dans la précédente 😉
www.excel-downloads.com

Impossible déposer données saisies dans feuille Excel.

Bonjour, J'essaye de saisir une ligne de données dans un Userform pour la déposer dans une ligne de ma feuille Excel 'Feuil2'. J'ai déjà franchi plein d'obstacle avec les Combobox mais si cela fonctionne apparemment normalement (sans planter), je n'arrive pas à enregistrer mes données dans la...
www.excel-downloads.com www.excel-downloads.com
 
Vote positif 0 Vote négatif
Re

Comme dans ton autre fil, ce qui compte c'est le point 😉
With Sheets("Feuil2")
'feuil2 est ma feuille de calcul Excel
'dans la cellule C6 il y a un nombre entier 23
'Je voudrais le récuperer pour le mettre dans la variable Nbr
'Cette variable servant à me positionner sur une ligne précise de mon tableur
'pour integrer des données de saisie

Nbr = .Range("C6").Value 'ici mettre un point à cause du With/End With
 
Vote positif 0 Vote négatif
OK je vois que cela passe à présent. Tout ça à cause d'un point!!

Un grand MERCI tout de même.
Une petite question subsidiaire...
Si je veux ajouter le nombre 7 à Nbr (7=ligne d'entéte) avant traitement de la suite la formule est:

Nbr = .Range(Nbr + 7).Value

Je range dans Nbr, Nbr + 7
???
 
Vote positif 0 Vote négatif
J'ai testé comme vous dites mais...

Dim Nbr As Integer
With Sheets("Feuil2")
'feuil2 est ma feuille de calcul Excel
'dans la cellule C6 il y a un nombre entier
'Je voudrais le récuperer pour le mettre dans la variable Nbr
'Cette variable servant à me positionner sur une ligne précise de mon tableur
'pour integrer des données de saisie

Nbr = .Range("C6").Value 'ici mettre un point à cause du With/End With
Nbr = .Range("C6") + 7

Là ça ne me prend que 7 et plus la valeur de Nbr
 
Vote positif 0 Vote négatif
Pour la date je verrai plus tard. Mais ce n'est pas simple pour moi.
Pour l'instant j'essaye de comprendre à travers cet exemple de petit programme...
Pour revenir ma ligne de saisie maintenant il fait qu'écrire sur la premier ligne du tableau après 7. Comme s'il ne prenait plus en compte Nbr...
Je craque... lol
 
Vote positif 0 Vote négatif
Bon ma saisie fonctionne à présent...
Je vais me lancer dans la procédure visant à remplir la colonne "compte" à partir du libellé de la Combobox de la nature...
Je vais encore me prendre la tête...
Puis il me faudra régler la date,
Puis quand il y a aucun montant de saisie alors j'ouvre une fenêtre d'alerte mais qui plante en sortie..

Merci de ton aide.
 
Vote positif 0 Vote négatif
Re

Juste pour infos
Et pour revenir aux us et coutumes du forum
Est-ce que tu as pris le temps de lire la charte du forum?
Si oui, est-ce que tu penses que ton fichier est "raccord" avec le point 1) de la charte?
😉

Sinon cette syntaxe n'est pas valide
Nbr = ActiveWorkbook.ActiveSheet.Cells(6, 3).Values
 
Vote positif 0 Vote négatif
Rejoins nos membres "Supporter XLD" et booste ton expérience Excel !
- Navigue sans publicité
- Accède à Cléa, notre assistante IA experte Excel... et pas que...
- Profite de fonctionnalités exclusives
Ton soutien permet à Excel Downloads de rester 100% gratuit et de continuer à rassembler les passionnés d'Excel.
Je deviens Supporter XLD

Discussions similaires

P
  • Résolu(e)
Microsoft 365 macro qui permet de basculer entre 2 valeurs composées de formules de type "Formula local"
2
Réponses
15
Affichages
154
cathodique
cathodique
A
  • Question Question
XL 2019 Copie d'une valeur dans la cellule à côté d'une valeur trouvé
Réponses
1
Affichages
383
sylvanu
sylvanu
G
  • Résolu(e)
XL 2016 Pb de tri et sous totaux
2
Réponses
27
Affichages
1 K
Gestionnaire_rh
G
E
  • Résolu(e)
Microsoft 365 Reduire Temps Execution Code
Réponses
5
Affichages
294
eric72
E
F
  • Question Question
Microsoft 365 aide VBA excel
Réponses
4
Affichages
623
Oneida
Oneida
Nicolas JACQUIN
  • Question Question
XL 2019 Gérer la descente d'une cellule colorer selon un timer
2 3 4
Réponses
56
Affichages
2 K
Rheeem
R
B
  • Résolu(e)
Microsoft 365 creation d'liste à imprimer
2 3 4
Réponses
51
Affichages
2 K
Banbara
B
A
  • Résolu(e)
Microsoft 365 Enregistrer copie d'un fichier avec pour nom le contenu d'une cellule excel (macro)
2
Réponses
15
Affichages
1 K
firecarl
F
lestoiles1
  • Question Question
XL 2013 Sub commentaire
Réponses
2
Affichages
277
lestoiles1
lestoiles1
S
  • Résolu(e)
Microsoft 365 Mailing mise en forme HTML : revenir à la ligne automatique si trop de texte saisie
2
Réponses
17
Affichages
788
spike29
S
treza88
  • Question Question
Microsoft 365 VBA : Problème de reconnaissance de variable avec fonction FIND
Réponses
2
Affichages
168
Dranreb
Dranreb
piga25
  • Résolu(e)
XL 2016 En VBA, Automatiser la réponse en fonction de l'état d'une cellule.
Réponses
7
Affichages
550
piga25
piga25
M
  • Résolu(e)
XL 2021 Récupérer la valeur d’une cellule dans un classeur fermé
Réponses
5
Affichages
192
patricktoulon
patricktoulon
Chaton77
  • Résolu(e)
Microsoft 365 Vba : Transférer des données d'un tableau dans un autre fichier
Réponses
7
Affichages
706
Chaton77
Chaton77
L
  • Résolu(e)
XL 2021 recherche valeur si une cellule contient un numéro
Réponses
5
Affichages
240
lola18
L
C
  • Question Question
Microsoft 365 worksheet_change
2
Réponses
29
Affichages
878
CortoXls
C
I
  • Résolu(e)
Microsoft 365 Copier-coller dans une plage avec des cellules masquées
Réponses
6
Affichages
513
sylvanu
sylvanu
A
  • Résolu(e)
XL 2016 Recherche d'un mot dans une cellule et surlignage de la ligne
Réponses
4
Affichages
405
Abi23
A
pascal21
  • Question Question
Microsoft 365 selectionner cellule via un combobox
Réponses
3
Affichages
232
job75
job75
M
  • Question Question
XL 2013 MACRO VBA pour imprimer tous les bulletins d'un établissement scolaire
Réponses
4
Affichages
642
MBEPID
M
Retour