Contenu récent par JC de Lorient

Re : aide sur la fonction somme salut pas sur d'avoir compris mais peut etre comme ça : ActiveCell.Offset(0, 4).Value = ActiveCell.Offset(0, 4).Value + TextBox2.Value JC

Re : tarification avec macro...je suis largué Salut à tous c réalisable mais si tu souhaites une aide il serait bien d'avoir un bout de ton fichier a te lire JC

Re : indice n'appartient pas sélection Salut tout le monde Juste une petite erreur içi : If ws.Name = Recap_Ecart Then les guillemets !!!! remplace par : If ws.Name = "Recap_Ecart" Then Bon courage JC

Re : detection cellule vide et remplissage salut supprime simplement cette ligne C = "C" & i JC

Re : Gestion d'un range salut a vous un bout de code : Sub essai() Dim i For i = 7 To 7414 If Range("S" & i) = 2 Then Range("A" & i & ":R" & i).Select Selection.Font.Bold = True End If Next i End Sub JC

Re : Copier Salut n'aurais tu pas une colonne vide en AK ? si oui ton problème est là !!! JC Oups !!! le souci n'est pas là désolé !!

Re : Récuperation de valeur dans un tableau Salut a tous pas sur d'aoir compris non plus mais pour AB = 0,4 et CD = 0,2 cette formule fera l'affaire : =INDEX($B$2:$G$6;EQUIV($B$4;$B$2:$B$6;1);EQUIV($F$2;$B$2:$G$2)) JC

Re : Masquer des onglet par nom Salut a mettre dans ThisWorkbook : Private Sub Workbook_Open() Dim x For x = 1 To Worksheets.Count If Left(Worksheets(x).Name, 5) = "Fiche" Then Worksheets(x).Visible = False Next x End Sub JC

Re : Mise en forme d un tableau Salut Après un coup d'oeil rapide essaye comme ceci: remplace ton If c<>"" then par If IsNumeric(c) Then bon courage JC

Re : Statistiques Salut à tous suis pas sur d'avoir très bien compris mais si tu souhaites un X si le lundi est de repos cette formule marche : En C3:=SI(SOMMEPROD((archives!$B$1:$B$100=stats!$B$3)*(archives!C1:C100="REPOS"))>=1;"X";"") Si tu souhaite un Nombre de jeudi de repos , cette...

Re : format forcé des textbox Salut novice et le forum en mettant ce code pour le textbox concerné Private Sub Textbox3_KeyPress(ByVal KeyAscii As MSForms.ReturnInteger) If KeyAscii = 46 Then KeyAscii = 44 End Sub Que tu tapes le point ou la vigule, le format sera toujours identique en fait...

Re : formule EXCEL salut =SI(G18="Particulier";5,5%;19,6%) 5.5% pour un particulier a inverser si c le contraire JC

Re : comptabilisé du texte salut tout le monde je pense que la fonction NB.SI devrait te convenir: NB.SI(plage de recherche;critère de recherche) JC

Re : Ré-initialiser un formulaire salut regarde avec la fonction Unload JC

Re : Compter le nombre de dates différentes dans une plage évolutive Salut a tous cette fonction devrait le faire (içi calcul sur colonne M) 0)*1)">=SOMME((FREQUENCE($M:$M;$M:$M)>0)*1) JC Oups !! plutot ceci !! =SOMME((FREQUENCE($M:$M;$M:$M)>0)*1)