Contenu récent par wamme

Re : limiter nombre de lignes et colonnes Bonsoir tu peux toujours masquer les lignes et colonnes qui ne sont pas nécessaires. Tu sélectionnes par exemple les lignes 101 à 65536 puis Format/lignes/masquer

Re : GOTO dans une deuxieme macro... Bonjour remplace GoTo FinMacro1 par call Macro2

Re : pbme de math Bonjour, si on considère chaque mois comme étant complet, de juillet à décembre il y a 6 mois et de janvier à juin il y a également 6 mois ce qui donne bien les 12 mois attendus ... En fait il compare sur une année complète soit 12 mois pleins. C'est du moins ce que j'en...

Re : Besoin d'un coup de boost Bonjour en début de macro écrire Application.ScreenUpdating = False et en fin de macro Application.ScreenUpdating = True ce qui permettra de bloquer l'affichage pendant le déroulement de la macro.

Re : ouverture d'userform bonjour à placer dans ThisWorkbook Private Sub Workbook_Open() USF.Show End Sub

Re : Problème avec les macro Salut, comme çà, çà devrait fonctionner : For i = 7 To 20 If (Cells(i, 3) = "Dupond") Then Range("H3") = 7.5 - 7.5 * Cells(i, 8) End If Next i

Re : Utilisation du clavier numérique dans une cellulet Bonsoir, 1)sélectionne la ou les cellules concernées 2)dans la barre d'outils : Données, validation, 3)dans la fenêtre qui s'ouvre: autoriser "décimal" choisir pour données : "comprise entre" choisir un minimum et...

Re : ComboBox à la place d'un TextBox Bonsoir, voici la façon de procéder: aprés avoir créé le combobox1 à la place de textbox1, ajouter dans Private Sub UserForm_Initialize() Dim c As Range Dim i As Byte Dim data1 As Collection Set data1 = New Collection For Each c In Range("E2:E" &...

Re : Listbox d'addition dans un fichier Bonjour dans ton code pour la colonne 5 par exemple remplace .Cells(Ligne, 5) = IIf(Me.TextBox4.Value = "", "0", Me.TextBox4.Value) par .Cells(Ligne, 5) = IIf(Me.TextBox4.Value = "", "0", .Cells(Ligne, 5) + Me.TextBox4.Value)

Re : Protection Salut pour protéger toutes tes feuilles: Application.ScreenUpdating = False Dim Temp As String Temp = ActiveSheet.Name For Each Sh In Worksheets Worksheets(Sh.Name).Activate ActiveSheet.Protect Next Sheets(Temp).Select Application.ScreenUpdating = True

Re : Fonction find associée à une boucle bonsoir, simplement avec la fonction NBSI() en B3 feuille STATS =NB.SI(INITIAL!F6:F74;$B$2) en C3 feuille STATS =NB.SI(INITIAL!F6:F74;$C$2) reste à voir la dernière session en tant que stagiaire

Re : Macro Selection cellules Bonsoir, un début de réponse avec cette macro à compléter. Mais avec ce que tu donnes comme exemple: difficile de continuer... Sub test() j = 5 Val1 = Sheets("résultat").Cells(5, 1).Value With Sheets("oe") For i = 1 To...

Re : Réaliser des macros identiques sur des feuilles différentes Bonjour, à tester sous cette forme sub indice1() Dim Wkb As Workbook Dim WS As Worksheet For Each WS In Wkb.Worksheets Range("A65536").End(xlup).select Range("M1")=ActiveCell.value Call indice2 next WS End Sub

Re : macro ne fonctionne pas la macro recopie bien E7, mais comme il n'y a rien en E7 ....

Re : macro ne fonctionne pas bonsoir, supprime le ' devant Ligne = Range("A65536").End(xlUp).Row + 1