Contenu récent par ibizalo

  1. I

    Suppression lignes vides

    Re : Suppression lignes vides BIJOUR LE FIL, BONJOUR LE FORUM ESSAYE CE SUB Sub sup_ligne() 'application manuelle Application.Calculation = xlCalculationManual 'desactivation du rafraichissement de l'écran Application.ScreenUpdating = False Dim i% With ActiveSheet For i =...
  2. I

    help boucle if

    Re : help boucle if re bonjour le fil ups le sub ne fonctionne pas à partir d'un certain nombre de colonne(n=5621) quelqu'un à une idée??
  3. I

    help boucle if

    Re : help boucle if salut chalet53 parfait fonctionne à merveille, j'ai juste changé cells(s,8) en cells(s,3) pour ne pas rajouter de colonne . merci pour cette solution
  4. I

    help boucle if

    Re : help boucle if merci pour ton travail mais je constate que tu as supprimer la lettre dans certaines cellules. est-ce possible de les garder??
  5. I

    help boucle if

    Re : help boucle if Merci d'avance
  6. I

    help boucle if

    bonjour le forum , aujourd'hui je travail sur une application le problème c'est que ma boucle if ne veut pas tourner. ce que je voudrai faire c'est insérer "0"en première position si le deuxième et ou en 4ème position si l'avant dernier caractère est une lettre. en sachant que le nombre de...
  7. I

    [ibizalo] macro s'exécutant tous les n lignes pour chaque colonne

    Re : [ibizalo] macro s'exécutant tous les n lignes pour chaque colonne merci pour la correction, par contre si je veux commencer à partir de la dernière colonne non vide , l'instruction: for i =activeSheets.Cells(1, Application.rows.Count).End(xlToup).row To 1 Step -1 ne fonctionne pas...
  8. I

    [ibizalo] macro s'exécutant tous les n lignes pour chaque colonne

    Re : [ibizalo] macro s'exécutant tous les n lignes pour chaque colonne eurêka j'ai essayé avec ça Sub sup_ligne() Dim i% Sheets("feuil14").Select For i = 250 To 1 Step -1 If Cells(i, 3).Value = "0" Then Rows(i).Delete Next End Sub
  9. I

    [ibizalo] macro s'exécutant tous les n lignes pour chaque colonne

    Re : [ibizalo] macro s'exécutant tous les n lignes pour chaque colonne bonjour, comme promis, j'ai dupliquer la macro sur toutes les autres lignes, et je suis plutôt satisfait de ce petit sub.(PS merci Robert). je vous sollicite pour une autre affaire à savoir , comment traduire la suppression...
  10. I

    [ibizalo] macro s'exécutant tous les n lignes pour chaque colonne

    Re : [ibizalo] macro s'exécutant tous les n lignes pour chaque colonne MERCI ça marche d'enfer sur l'exemple , dès lundi je vais essayer pour les autres lignes et te tiens au courant encore une fois merci
  11. I

    [ibizalo] macro s'exécutant tous les n lignes pour chaque colonne

    Re : [ibizalo] macro s'exécutant tous les n lignes pour chaque colonne je te transmets un bout de fichier j'essaye d'expliquer sur la feuille "résultat" ce que j'aimerais avoir:confused:
  12. I

    [ibizalo] macro s'exécutant tous les n lignes pour chaque colonne

    Re : [ibizalo] macro s'exécutant tous les n lignes pour chaque colonne désolé, voici ce que je cherche à faire Sub test_3() ' ' test_3 Macro ' Dim ligne As Integer, colon As Integer For ligne = 2 To 42 Step 15 for each no empty colums in sheets("feuil1") Sheets("feuil2").Select...
  13. I

    [ibizalo] macro s'exécutant tous les n lignes pour chaque colonne

    Re : [ibizalo] macro s'exécutant tous les n lignes pour chaque colonne merci encore une fois , le problème c'est que les valeurs sont figés , j'aimerai que la macro s'exécute une fois sur chaque colonne tous les 15 lignes. suis-je plus clair?? encore une fois merci
  14. I

    Copier/boucler le contenu d'un colonne à la ligne d'une autre

    Re : Copier/boucler le contenu d'un colonne à la ligne d'une autre bonjour, ça ne tiendra pas sur une feuille faut voir si tu veux le faire sur plusieurs. dans ce cas faut espérer que les modos viennent à ton secours
  15. I

    [ibizalo] macro s'exécutant tous les n lignes pour chaque colonne

    Re : [ibizalo] macro s'exécutant tous les n lignes pour chaque colonne voici la macro que j'aimerais faire tourner sub test_3() ' ' test_3 Macro ' ' ActiveCell.FormulaR1C1 = "=Feuil1!R[-1]C" Range("C2").Select ActiveCell.FormulaR1C1 = "=Feuil1!R[9]C[-1]"...