Contenu récent par sabzzz

  1. S

    bouton h.s apres passage excel 2013

    Re : bouton h.s apres passage excel 2013 bonsoir pralo, fait un clic sur un des boutons "Fix it" au bas de la page suivante: Erreur « Impossible d'insérer un objet » dans une solution Office personnalisée ActiveX après l'installation de la mise à jour de sécurité MS14-082 isabelle
  2. S

    fenêtre informative, code VBA

    Re : fenêtre informative, code VBA bonjour Francis, essaie en remplacant Target = "" par Target.Clear a+
  3. S

    Souci sur Index-Equiv

    Re : Souci sur Index-Equiv bonjour gnina1973, il faut mettre des références absolues pour que lors de la recopie, les références ne soient pas incrémentées, en cellule C2 : =INDEX('SUIVI BE'!$B$2:$D$936;EQUIV(B2;'SUIVI BE'!$B$2:$B$936;0);2) a+
  4. S

    Chercher une partie de texte dans une cellule

    Re : Chercher une partie de texte dans une cellule bonjour Michael, =SI(NBCAR([LeFichier.XLS]Feuil1!A1)<>NBCAR(SUBSTITUE([LeFichier.XLS]Feuil1!A1;"H4";""));"oui";"") a+
  5. S

    Boucler sur la colonne "Grand Total" d'un TCD

    Re : Boucler sur la colonne "Grand Total" d'un TCD bonjour Atlas, Sub Macro1() Set tcd = ActiveSheet.PivotTables(1) If tcd.ColumnGrand Then x = tcd.TableRange1.Address Set plg = Range(Range(x).Columns(Range(x).Columns.Count).Address) End If For i = 3 To plg.Count - 1 valeur = plg(i)...
  6. S

    Question listview et date

    Re : Question listview et date bonjour Byfranck, mets ces lignes dans cette ordre : .SortKey = 1 '--> colonne 2 .Sorted = True a+
  7. S

    Question listview et date

    Re : Question listview et date bonjour Byfranck, si tu met des valeurs date et texte dans une même colonne c'est normal, essai sur une feuille, le résultat sera le même. a+
  8. S

    partie de Code d'une ListBox a adapter dans une ListView

    Re : partie de Code d'une ListBox a adapter dans une ListView bonjour vaucluse immo, il faudrait que tu verifie s'il y a une selection de fait dans le ListBox If ListBox1.ListIndex = -1 Then et sélectionner la ligne en question si elle ne les pas, et ce avant la ligne...
  9. S

    Question listview et date

    Re : Question listview et date bonjour Byfranck, Private Sub CommandButton14_Click() Me.Hide Load UserForm7 UserForm7.Show End Sub a+
  10. S

    Déplacer des lignes sous condition.

    Re : Déplacer des lignes sous condition. bonjour karinette, voilà : Sub Macro1() For i = Sheets("Feuil1").Range("A65536").End(xlUp).Row To 1 Step -1 If Cells(i, 13) = "CLIENTS" Then Rows(i).Cut x = Sheets("Feuil1").Range("A65536").End(xlUp).Row y =...
  11. S

    Question listview et date

    Re : Question listview et date bonjour Byfranck, peut tu joindre ton fichier ? a+
  12. S

    Uniqement des chiffes pas de texte !

    Re : Uniqement des chiffes pas de texte ! bonjour niobium et à tous, s.t.p. pas une image mais un fichier excel, a+
  13. S

    Déplacer des lignes sous condition.

    Re : Déplacer des lignes sous condition. bonjour karinette, avec la ligne (ou cellule) sélectionnée au préalable Rows(ActiveCell.Row).Cut x = Sheets("Feuil1").Range("A65536").End(xlUp).Row y = Sheets("Feuil2").Range("A65536").End(xlUp).Row Rows(x + 1).Insert Shift:=xlDown Rows(x).Cut...
  14. S

    Uniqement des chiffes pas de texte !

    Re : Uniqement des chiffes pas de texte ! bonjour niobium et à tous, tu peut aussi utiliser la validation pour autoriser seulement des dates valide a+
  15. S

    selon argument cellule

    Re : selon argument cellule bonjour phuteau et à tous, j'ai adapté la formule selon ton fichier, =MOD(E5-D5+H5-G5;5)-(CHOISIR(EQUIV(I5;{0;"b";"c";"d"};0);0;30;60;90))/1440 a+
Voir plus