Gestion valeur = au début d'une cellule
Résolu/Fermé
rodg45
Messages postés
6
Date d'inscription
lundi 4 juillet 2016
Statut
Membre
Dernière intervention
5 juillet 2016
-
4 juil. 2016 à 14:22
rodg45 Messages postés 6 Date d'inscription lundi 4 juillet 2016 Statut Membre Dernière intervention 5 juillet 2016 - 5 juil. 2016 à 15:30
rodg45 Messages postés 6 Date d'inscription lundi 4 juillet 2016 Statut Membre Dernière intervention 5 juillet 2016 - 5 juil. 2016 à 15:30
A voir également:
- Gestion valeur = au début d'une cellule
- Le fichier contient le nombre de voyageurs dans 3 gares. dans la cellule b5, saisissez une formule qui calcule le total et se met à jour si on change une valeur du tableau. quel total obtenez-vous ? quelle formule avez-vous saisie ? ✓ - Forum Excel
- Vba récupérer valeur cellule ✓ - Forum VB / VBA
- Excel colorer une cellule sous condition d'une autre cellule ✓ - Forum Excel
- Aller à la ligne dans une cellule excel - Guide
- Verrouiller cellule excel - Guide
2 réponses
jordane45
Messages postés
37253
Date d'inscription
mercredi 22 octobre 2003
Statut
Modérateur
Dernière intervention
17 mars 2023
4 551
4 juil. 2016 à 14:35
4 juil. 2016 à 14:35
Bonjour,
Saisie une apostrophe avant le = permet de l'écrire dans une cellule sans qu'il ne soit interprété comme le début d'une formule.
Saisie une apostrophe avant le = permet de l'écrire dans une cellule sans qu'il ne soit interprété comme le début d'une formule.
rodg45
Messages postés
6
Date d'inscription
lundi 4 juillet 2016
Statut
Membre
Dernière intervention
5 juillet 2016
Modifié par jordane45 le 5/07/2016 à 14:14
Modifié par jordane45 le 5/07/2016 à 14:14
Voila une partie du code
==> ça plante sur la comparaison car le contenu de Feuil1.Cells(£Ligne, 15) contient Erreur2029
Merci pour ton aide
EDIT : AJOUT DES BALISES DE CODE
'Boucle de recopie des Critères et valeurs, fonctionnement OK
£Col = 13
For £I = 1 To £NbCritere
Feuil1.Cells(£LigLibMax, £Col + 1) = £TabCritere(£I, £TabIndice(0))
£Critere = £TabCritere(£I, £TabIndice(£I))
Feuil1.Cells(£LigLibMax, £Col + 2).Value = £Critere
£Col = £Col + 2
Next
£TabIndice(£NbCritere) = £TabIndice(£NbCritere) + 1
'Boucle de recherche d'un doublon pour savoir si l'on doit copier les critères valeurs
UnControleFaux = False
£Ligne = 7
Do While Feuil1.Cells(£Ligne, 11) <> ""
If £TabCritere(1, £TabIndice(1)) = Feuil1.Cells(£Ligne, 15) And _
£TabCritere(2, £TabIndice(2)) = Feuil1.Cells(£Ligne, 17) And _
£TabCritere(3, £TabIndice(3)) = Feuil1.Cells(£Ligne, 19) And _
£TabCritere(4, £TabIndice(4)) = Feuil1.Cells(£Ligne, 21) And _
£TabCritere(5, £TabIndice(5)) = Feuil1.Cells(£Ligne, 23) And _
£TabCritere(6, £TabIndice(6)) = Feuil1.Cells(£Ligne, 25) And _
£TabCritere(7, £TabIndice(7)) = Feuil1.Cells(£Ligne, 27) And _
£TabCritere(8, £TabIndice(8)) = Feuil1.Cells(£Ligne, 29) And _
£TabCritere(9, £TabIndice(9)) = Feuil1.Cells(£Ligne, 31) And _
£TabCritere(10, £TabIndice(10)) = Feuil1.Cells(£Ligne, 33) Then
UnControleFaux = True
£Ligne = 50000
End If
£Ligne = £Ligne + 1
Loop
==> ça plante sur la comparaison car le contenu de Feuil1.Cells(£Ligne, 15) contient Erreur2029
Merci pour ton aide
EDIT : AJOUT DES BALISES DE CODE
jordane45
Messages postés
37253
Date d'inscription
mercredi 22 octobre 2003
Statut
Modérateur
Dernière intervention
17 mars 2023
4 551
5 juil. 2016 à 14:17
5 juil. 2016 à 14:17
Lorsque tu écris (ou lis) les valeurs des cellules... penses à préciser : .value
Par exemple :
A remplacer par :
Ensuite... si tes valeurs commencent par le signe "=" ... mets une quote devant pour éviter que ça ne soit ensuite interprété comme un formule.
Un truc du genre :
Par exemple :
Feuil1.Cells(£LigLibMax, £Col + 1) = £TabCritere(£I, £TabIndice(0))
A remplacer par :
Feuil1.Cells(£LigLibMax, £Col + 1).value = £TabCritere(£I, £TabIndice(0))
Ensuite... si tes valeurs commencent par le signe "=" ... mets une quote devant pour éviter que ça ne soit ensuite interprété comme un formule.
Un truc du genre :
Feuil1.Cells(£LigLibMax, £Col + 1).value = "'" & £TabCritere(£I, £TabIndice(0))
rodg45
Messages postés
6
Date d'inscription
lundi 4 juillet 2016
Statut
Membre
Dernière intervention
5 juillet 2016
>
jordane45
Messages postés
37253
Date d'inscription
mercredi 22 octobre 2003
Statut
Modérateur
Dernière intervention
17 mars 2023
5 juil. 2016 à 14:38
5 juil. 2016 à 14:38
Merci beaucoup, quand je rajoute la concaténation de mon critère par "'" &, ça fonctionne parfaitement et en plus, l’apostrophe n’apparaît pas dans le formulaire.
jordane45
Messages postés
37253
Date d'inscription
mercredi 22 octobre 2003
Statut
Modérateur
Dernière intervention
17 mars 2023
4 551
>
rodg45
Messages postés
6
Date d'inscription
lundi 4 juillet 2016
Statut
Membre
Dernière intervention
5 juillet 2016
5 juil. 2016 à 14:42
5 juil. 2016 à 14:42
Comme je te l'avais dit dans ma réponse précédente .....
voilou....
PS: pense à mettre le sujet en RESOLU.
Saisie une apostrophe avant le = permet de l'écrire dans une cellule sans qu'il ne soit interprété comme le début d'une formule
voilou....
PS: pense à mettre le sujet en RESOLU.
rodg45
Messages postés
6
Date d'inscription
lundi 4 juillet 2016
Statut
Membre
Dernière intervention
5 juillet 2016
>
jordane45
Messages postés
37253
Date d'inscription
mercredi 22 octobre 2003
Statut
Modérateur
Dernière intervention
17 mars 2023
5 juil. 2016 à 15:30
5 juil. 2016 à 15:30
Le problème c'est que j'ajoutais l'apostrophe lors de l'enregistrement et je pensais que je pouvais récupérer la valeur tel que mais non, il faut également ajouter l'apostrophe lorsque l'on récupère la valeur.
4 juil. 2016 à 14:44
4 juil. 2016 à 14:49
4 juil. 2016 à 14:52