Résultats de la recherche

Re:Comment valider le dernier caractère d'un strin Bonjour, En VBA cela pourra donner : tt = 'eesede*' 'juste pour tester If Right(tt, 1) = '*' Then tt = Left(tt, Len(tt) - 1) En formule, cela pourra donner : =SI(DROITE(A1;1)='*';GAUCHE(A1;NBCAR(A1)-1);A1) Cela répond-il à ta...

Bonsoir, C'est la propriété .enabled de ton TextBox qu'il faut passer à False. Soit directement lors de la conception, soit à un moment donné dans ton code (initialisation de ta USF, ou clic sur un bouton, ou changement de valeur, ou ...) TextBox1.Enabled = False Ca convient-il ?

salut, faute de frappe ... si tu remplaces le c par un x, ça devrait le faire. AA = Month(txtDate)

Bonsoir, Une petite correction d'une partie du code de ton USF devrait convenir. Private Sub cmdEnvoi_Click() Dim AA As Integer AA = Month(tctDate) 'N° du mois de la date choisie Dim i As Integer Dim WSR As Worksheet Set WSR = Sheets(AA) i = WSR.Range('A65536').End(xlUp).Row + 1...

Salut, En guise de formule, il te suffit de saisir la date dans la cellule concernée à d'y appliquer un format peronnalisé. Dans ton cas, sélectionne la colonne concernée et puis Format/Cellule/Nombre - personnalisé. Dans personnalisé, tape dans le champ de saisie 'type' : jjjj j-mmmm-aa...

Salut Essaie BackColor à la palce d'Interior.Color Ctrl.BackColor= RGB(0,0,0) Bonne fin de semaine

Salut, Rien de grave à priori ;) Pour commencer, une chtite pinaillerie : tu déclares I comme variant. Ca ne sert pas à grand chose, par défaut les variables sont toutes des variants. I étant un nombr entier, soit tu le déclare en Integer (si tu es sûr que I ne dépassera pas...

Re-, Re- salut Je viens de relire ton code avec un tout petit plus d'attention, et te propose une simplification : Private Sub Worksheet_Activate() Dim nbMatieres As Integer, cpt1 As Integer Application.ScreenUpdating = False Set org = Sheets('planning') Set dest = Sheets('besion en...

re-, J'ai pas tout suivi : - tu veux utiliser cette macro sur appui de bouton ou - à la sélection de la feuille 'besion en matiere' la macro doit se déclencher automatiquement ?? Quoiqu'il en soit, avec les modifs ci-dessous, ça devrait passer sur activation de la feuille : Private...

Salut Marion, En l'absence de fichier, je ne peux que te proposer des pistes sans pouvoir les tester. Néanmoins, pour commencer, je pense que l'utilisation de l'évennement 'Worksheet_Activate()' n'est pas le plus adapté à ton code. En fait, ça dépend de la feuille où tu as placé ce...

re-, Ta modification (remplacer 'GR' par NULL) fonctionne, mais dans ce cas il serait opportun de simplifier en : If Cells(Lig, 3) <> Null Then L'insertion de Newpage nécessite juste un test supplémentaire dans la boucle. Ta macro deviendrait donc : Sub SupprLigVides() Derlig! =...

Salut à toi, Une solution serait de passer par la fonction SOMMEPROD. Si on considère la colonne des années en A (de A2 à A220 par ex.), la colonne des pays en B (B2 à B220) ; et l'année cherchée en D1 ainsi que le pays cherché en E1, cela donnera quelquechose du genre ...

Bonjour Kim, Si j'ai bien tout compris, tu veux supprimer les lignes qui répondent aux 2 critères suivants : - en colonne C se trouve une chaine de caractères commençant par 'GR' (GRA, GRB, Groupe 5 ...) - les colonnes D à U sont vides (donc leur somme=0) Dans ce cs, je te...

Bonjour, Est-ce qu'il est possible de t'expliquer un peu plus ?? ---- Somme est une fonction qui additionne toutes les valeurs qui se trouvent dans les parenthèses. SOMME(B1:B5) additionne le contenu de B1 avec celui de B2, B3, B4 et B5. SOMME(45) = 45 SOMME(45;23) = 68...

Re:comment colorer des cellules toutes les seconde En fait, ya plus de maths (et de logique) dans cette macro que de connaissances en VBA. Lig + Int(I / (NBCol)) : ajoute 1 à la ligne toutes les 4 colonnes INT(I / 4) ==> 0 tant que I<4 ==> 1 si I compris entre 4 et 7...

re-salut, 1 précision, pour copier un ensemble de feuilles, sans les sélectionner, tu peux aussi utiliser Array Sheets(Array(1, 3)) désigne les feuilles 1 et 3 d'o&ugrave; org.Sheets(Array(1, 3)).Copy before:=dest.Sheets(1) en remplacement de : org.Windows(1).SelectedSheets.Copy...

Salut, 1 solution souple (parmi d'autres) : sélectionner les feuilles à sauvegarder et utiliser la propriété .selectedsheets. 2 versions possibles : - tu sélectionnes les feuilles 'à la main' - tu les sélectionne par macro un début de solution (sélection 'à la main') Sub...

Re:comment colorer des cellules toutes les seconde Salut, YAKA demander !!! :) Ci-dessous, une proposition de solution. Sub everysecond() Lig = 6 Col = 4 NBCol = 4 MaxLig = 16 Inc = Val(InputBox('Indiquez le délai en secondes' & vbLf & 'au format #.##', 'Délai')) Start =...

Re:comment colorer des cellules toutes les seconde Bonjour, Ci-dessous un exemple à adapter à ton cas. Sub everysecond() Start = Timer ' mémorise le temps de départ Do 'boucle indéfiniement Do While Timer < Start + C 'attend qu'une seconde soit écoulé DoEvents 'laisse les...

Bonjour, Voici une amorce de solution. Soit une USF o&ugrave; se trouvent : - 3 textbox reprennant 3 types d'infos issues des colonnes A à C de la feuille - 2 commandbuttons qui servent au déplacement de ligne en ligne 1 feuille avec 3 colonnes d'informations, la première ligne...