Résultats de la recherche

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

Re : format d'une collone bonjour un essai à améliorer

Re : probleme avec cette ligne de VBA Tu pourrai selectionner la plage en VBA Application.Goto Reference:="tab2" et continuer la macro pour faire un copier/coller

Re : probleme avec cette ligne de VBA edit : je supprime ma réponse je n'ai décidement pas compris le problème

Re : probleme avec cette ligne de VBA Bonjour, ta macro renvoie en A55 la valeur de N6 et pas M5. Si c'est bien M5 que tu veux il faut enlever .Offset(1,1) Ou alors je n'ai pas tout compris

Re : Insertion données en VBA Bonsoir, un début d'essai dans le fichier joint