Ceci est une page optimisée pour les mobiles. Cliquez sur ce texte pour afficher la vraie page.

Problémes codes + coller couleur

Créer une discussion
  • Initiateur de la discussion Initiateur de la discussion lanoe
  • 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
L

lanoe

XLDnaute Occasionnel
Bonjour,

Après de multiples recherches dans les archives du forum, je bute sur deux commandes…

J’ai une combobox qui commande des lignes de textbox et combobox. 1ere ligne appelée A, 2eme appelée B…
De A4 à A27, de B4 à B27… les combobox se colorient en fonction de la lettre.

Cette commande fonctionne, les problèmes sont:

1- Répercuter les informations dans la feuille « calendrier », trouver la ligne correspondante (colonne B) et copier les informations de A1 à A 27, de B1 à B27… Je souhaite copier la lettre et la couleur des combobox correspondant ou la valeur numérique de A3,B3…

J’ai un début de code, mais cela ne fonctionne pas… le code fonctionne dans d’autres User, mais pas ici et je ne comprends pas pourquoi (sachant que ce code ne gère pas la couleur)

2- Pouvoir supprimer une ligne sur la feuille calendrier, quelle solution : une case à cocher en début de ligne ???

Merci d’avance…

Lanoe
 

Pièces jointes

Dernière édition:
Trier par date Trier par votes
Re : Problémes codes + coller couleur

bonjour à tous

les comboboxs a2,b2.... servent a quoi ?
sans valeur de celle ci impossible d'enregistrer
Code: 
If A2 = "" Then
MsgBox "Sélectionner une valeur", vbCritical, "Invalide !"
Exit Sub
End If
Je souhaite copier la lettre et la couleur des combobox correspondant ou la valeur numérique de A3,B3…
Cliquez pour agrandir...
là si tu pouvais précisez car si tu parles des a4,a5... tu peux te retrouver avec plusieurs lettres et couleurs différentes.
 
Vote positif 0 Vote négatif
Re : Problémes codes + coller couleur

Bonjour,

1) Effectivement le "If A2..." est inutile, il est resté d'un essai précédent.
2) Pour essayer d'être plus claire:
je travail sur un planning de planification de culture de légumes.
La Combo Bleu appelle le légume: ex salade. Dans l'année, il y aura plusieurs séries de salades. Donc une ligne = une série.

La première colonne de Textbox, indique le nom de la série: A1,B1,C1...(ex: A1:salades de printemps, B1: Salade d'été...)
La deuxième colonne sont emplacement: Un nom de parcelle: A2, B2...
La troisième sa surface (donc numérique): A3,B3...
Les Combo suivant sont utilisé pour les prévisions de Semis "S",Plantation "P", Récolte: "R" avec une couleur correspondante.

Je souhaite donc pouvoir faire varier l'ensemble des données (cela fonctionne actuellement) et de les répercuter: la lettre et la couleur correspondante, sur la série (car les salades printemps, peuvent être semé à différentes dates)

En cherchant depuis plusieurs heures, il me semble qu'une partie de l’erreur (la commande modifier les info qui ne fonctionne pas) vient du fait que je demande de "coller" sur la feuille "calendrier" en colonne "A", alors que le nom de la série se trouve en colonne "B"??? (peut-être une fausse piste...)

Et je n'ai toujours pas de piste pour coller les couleurs...

J'espère avoir mieux expliqué...

Merci pour ton aide,
Lanoe
 
Dernière édition:
Vote positif 0 Vote négatif
Re : Problémes codes + coller couleur

Bon je viens de parcourir un peu ton code.

il me remonte une erreur sur cette procédure

Code: 
Private Sub enregistrer(£feuille1 As String, £ligne2 As Long)
For i = 1 To 5
    If IsNumeric(Me.Controls("A" & i)) Then
         Sheets(£feuille1).Cells(£ligne2, i) = CDbl(Me.Controls("A" & i))
    Else
         Sheets(£feuille1).Cells(£ligne2, i) = Me.Controls("A" & i)
   End If
Next i

End Sub

au niveau de cette ligne :

Code: 
 Sheets(£feuille1).Cells(£ligne2, i) = Me.Controls("A" & i)

de ce que je peux voir
£ligne2
Cliquez pour agrandir...
est à 0 donc forcément excel n'accepte pas de faire ce que tu demande.

Ton erreur provient donc du fait que tu n'as pas initialiser ta variable à 1 et que tu ne fais pas varier cette variable. Donc je te laisse modifier ce qu'il faut.

Par contre en terme de conseil, évite au maximum les
.select
Cliquez pour agrandir...
dans ton code. Ils sont inutile et gourmand dans excel.

Je reste à ton écoute pour d'autres questions.
 
Vote positif 0 Vote négatif
Re : Problémes codes + coller couleur

Bonjour,

Effectivement, je suis arrivé à la m^me conclusion, mon problème: je suis un petit bricoleur, je m'inspire des différentes archives du forum... Comment faire pour "initialiser la variable à 1" ???

Merci aussi pour ton conseil.

lanoe
 
Vote positif 0 Vote négatif
Re : Problémes codes + coller couleur

Bonjour,

Suite à un travail magnifique de jpb388, j'ai continué le projet et je me trouve confronter à un problème.

Sur le bouton "Enregistrer les modifications", le code actuel modifie uniquement la ligne 7 de la feuille "Calendrier" .

Je souhaite, si cela est possible:

Que le code cherche le contenu du textbox "A1" dans la colonne A de la feuille "Calendrier" et colle les infos (des textbox et combo numérotés) de A1 à A28 dans la ligne correspondante.
Idem pour le textbox "B1"...

Ex: Sur mon exemple, je sélectionne "Mache" dans cbx1 (en bleu), je souhaite modifier "Mache serie 4", (textbox D1), que le code trouve la ligne correspondante dans la feuille calendrier et colle "D1 à D28".

Enfin dernier point, je souhaiterais pouvoir supprimer une ligne sur la feuille "calendrier" avec le m^me user. Avez-vous une solution (un CheckBox devant par ligne???)?

Merci,

Lanoe
 

Pièces jointes

Dernière édition:
Vote positif 0 Vote négatif
Re : Problémes codes + coller couleur

Bonsoir a tous
reste a fignoler mais tu peux lire,supprimer et enregistrer les données
pour l'instant version 2007 pour que tu puisse tester et me faire part de tes observations
 

Pièces jointes

Vote positif 0 Vote négatif
Re : Problémes codes + coller couleur

Bonjour,

...extra...

Premier test parfait, juste deux remarques:
1- quand un légume n'existe pas dans le calendrier un MsgBox "Ce légume n'existe pas dans le calendrier" apparait, est-il indispensable? car je ai forcement besoin d'inclure des nouveaux légumes (Si le Msgbox est indispensable, je vais créer un user pour inscrire les nouveaux légumes dans le calendrier.).
2- Sur les textbox "A4, B4..." (la colonne surface) est-il possible d'obliger à entrer une valeur numérique, si par erreur on rentre une autre donnée cela va me poser problème dans les calculs qui suivent.

Merci pour se superbe travail.
Lanoe
 
Vote positif 0 Vote négatif
Identifiez-vous ou inscrivez-vous pour participer.
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

R
  • Question Question
Microsoft 365 Interrompre synchronisation OneDrive d'un dossier ou sous-dossie
Réponses
5
Affichages
586
wDog66
  • Question Question
Microsoft 365 datepicker dynamique intra userform ou dans feuille 2 versions(frame dynamique)(toute version d'excel )
6 7 8
Réponses
105
Affichages
3 K
Usine à gaz
M
  • Question Question
XL 2010 Colorie certaines lettres en bleu dans la ListBox 1
Réponses
1
Affichages
455
job75
I
  • Résolu(e)
Microsoft 365 Copier-coller dans une plage avec des cellules masquées
Réponses
6
Affichages
555
sylvanu
E
  • Question Question
Microsoft 365 Couleurs de fichiers qui changent
Réponses
1
Affichages
396
mapomme
P
  • Résolu(e)
XL 2021 Requête API - VBA Excel - Parse JSON
Réponses
2
Affichages
497
picc
P
E
  • Résolu(e)
Microsoft 365 Copier Coller selon condition
Réponses
5
Affichages
374
TooFatBoy
  • Question Question
XL 2016 Aide pour userform (sujet clos)
Réponses
8
Affichages
593
tactic6
E
  • Question Question
Microsoft 365 Mettre code couleur quand un texte en dessous d'un autre
Réponses
3
Affichages
431
Erakmur
E
  • Résolu(e)
Microsoft 365 En VBA : Extraire le mois d'une date d'un tableau
Réponses
7
Affichages
515
Chaton77
A
  • Question Question
Insérer un copier / coller
Réponses
0
Affichages
381
aziz
A
C
  • Résolu(e)
Microsoft 365 Créer un RV outlook à partir de chaque ligne d'un tableau
Réponses
8
Affichages
2 K
c.branco
C
L
  • Question Question
Microsoft 365 Mise en forme conditionnelle sur dates
Réponses
2
Affichages
817
Lou Janot
L
C
  • Résolu(e)
Microsoft 365 Macro copié collé valeur se trouvant dans d'autres feuilles
2 3
Réponses
38
Affichages
2 K
Croc_de_loups
C
X
  • Question Question
XL 2016 Souci copier/coller avec un filtre.
2 3 4
Réponses
55
Affichages
5 K
Xender
X
C
  • Question Question
Autres bug sur une procédure avec textbox contenant un code barre
2
Réponses
15
Affichages
2 K
TooFatBoy
C
  • Résolu(e)
Microsoft 365 Mise en forme d'une ligne d'après listes déroulantes + clic sur un bouton
Réponses
2
Affichages
704
casualexcel
C
L
  • Question Question
Microsoft 365 Changement de couleurs de cellules dans plusieurs feuilles suite à une modification
Réponses
4
Affichages
713
lolo_excelbeginner
L
B
  • Question Question
XL 2021 Transfert tableau structuré EXCEL à un endroit précis de WORD
Réponses
8
Affichages
1 K
job75
O
  • Question Question
Microsoft 365 Excel [VBA]. Erreur d’exécution 424 Objet requis sur une concaténation
Réponses
3
Affichages
731
Oneida
Menu
Connexion
S'inscrire
Les cookies sont requis pour utiliser ce site. Vous devez les accepter pour continuer à utiliser le site. En savoir plus…