Contenu récent par Co_Lac

Avec vous quand il y a un problème il y a toujours une solution ! C'est magique ****

Merci beaucoup Je l'ai adapté : Private Sub UserForm_Initialize() Me.ComboBox7.List = Split(liste_CEP, ";") Me.ComboBox8.List = Split(liste_CEL, ";") End Sub Function liste_CEP() nbLignes_CEP1 = Sheets("Liste_tri").Cells(Rows.Count, 7).End(xlUp).Row nbLignes_CEP2 =...

Bonjour, J'ai essayé pleins de solutions trouvées sur le net mais aucune ne marche! Mon problème, réunir 3 plages en une pour alimenter un combobx ! Comment faire d'abord pour ne faire qu'une seule plage, ensuite m'en servir pour alimenter un combobox ? Merci de votre aide

ça a beugué excusez moi ! message parti tout seul. Dans la macro "trouve" il a rajouté la ligne : Sheets(nom_feuille_resultat).Activate Avant la ligne Application.ScreenUpdating = False Et ça a marché! La méthode à Pierre Jean aurait marché aussi ! Je n'ai pas testé celle de Sylvanu, désolé...

Oui c'est vrai il a solutionné le problème en rajoutant simplement Sheets(nom_feuille_resultat).Activate Application.ScreenUpdating = False

RE bonjour, Entre temps j'ai un ami qui est passé, il travaille beaucoup avec les tableaux moi je commence! Il a résolu le problème en faisant la somme dans le tableau ! Je prends note de vos informations précieuses, je progresse doucement grâce à vous! Merci de votre patience et du temps que...

Voila le classeur bricolé ! mdr Merci pour votre attention petite précision le bouton transfert de relevés ne marchera pas il vous manquera le .csv que je récupère chez le banquier!

Si je rajoute la feuille il y a une erreur Erreur définie par l'application ou par l'objet Je vais essayer de fair un classeur neutre pour vous l'envoyer

Petite précision j'ai essayé les deux solutions une avec sum et l'autre avec les boucles for et j'ai le même résultat ! Je remet le fichier montrant la 1ère solution en "vert" donc non active !

Bonjour à tout les deux Pour Sylvanu, c'est mes comptes perso en question donc je ne peux pas envoyer le classeur ! Et pour PierreJean je le sais car cette ligne fonctionne en PAS à PAS (F8) Je vous joint la macro au format word

Bonjour le forum, encore besoin de vous ! J'ai cette ligne qui fonctionne en pas à pas et ne fonctionne pas en déroulement de la macro en automatique ! Sheets(nom_feuille_resultat).Cells(3, Col - 1) = Application.WorksheetFunction.Sum(Range(Cells(6, Col - 1), Cells(1000, Col - 1))) Est...

ça y est j'ai trouvé !!! il faut modifier la ligne : With zone.FormatConditions.Add(xlExpression, Null, "=LIGNE(" & zone.Cells(1).Address(False, False) & ")=" & ActiveCell.Row) comme ça : With zone.FormatConditions.Add(xlExpression, Null, "=LIGNE()=" & ActiveCell.Row) Je suis...

Merci pour votre réponse rapide, Mais le problème avec ce code que j'ai testé ce matin c'est que ça me supprime tout le formatage précédent, couleur des cellules et écriture ? Et je veux conserver le fichier tel que quand je l'ouvre !

Bonjour, Je souhaite mettre en surbrillance la ligne en cliquant sur une cellule lui appartenant. J'ai trouvé ce code sur le net qui fonctionne mais qui décale à chaque clic dans une cellule d'une quantité de lignes vers le bas ! Je m'explique: Ligne 1 : parfait ! Ligne 2 : Ligne en surbrillance...

En tout cas merci ! J'ai fait quelque chose qui semble fonctionner il me reste à comprendre ! Bonne soirée