Automatisation...

Résolu
caro__48 Messages postés 242 Date d'inscription   Statut Membre Dernière intervention   -  
caro__48 Messages postés 242 Date d'inscription   Statut Membre Dernière intervention   -
Bonjour,

J'ai un tableau de 5000 lignes environ qui se présente comme cela:

=Nombre1 == Nombre2 == Nombre3 == Nombre4
= 10 == 20 == 5 == test
= 10 == 20 == 5 == test
= 10 == 20 == 5 == test
= 10 == 20 == 5 == test
= 10 == 20 == 5 == loulou
= 10 == 20 == 5 == loulou
= 10 == 20 == 5 == Paul
etc.

Je souhaite savoir si il existe une formule qui me permet d'insérer une ligne vide (ou plusieurs) dès que le texte de la colonne 4 est différent.

Avez vous une idée??

Merci d'avance pour votre aide

5 réponses

Réponse 1 / 5
ccm81 Messages postés 10909 Date d'inscription   Statut Membre Dernière intervention   2 433
 
Bonjour

Par formule, je ne vois pas (ce qui ne veut pas dire que ...) mais via une macro, c'est très faisable
Tu dis

Cdlmnt
0
Réponse 2 / 5
Mike-31 Messages postés 18405 Date d'inscription   Statut Contributeur Dernière intervention   5 135
 
Bonjour,

Uniquement en VBA,
0
Réponse 3 / 5
caro__48 Messages postés 242 Date d'inscription   Statut Membre Dernière intervention   61
 
Je m'en doutais un peu mais le VBA, je ne connait pas.

Quelqu'un peut m'aider? svp?
Merci

0
Réponse 4 / 5
ccm81 Messages postés 10909 Date d'inscription   Statut Membre Dernière intervention   2 433
 
Si Mike (salut à toi) dit qu'il n'y a que vba, c'est que ....
Un exemple
https://www.cjoint.com/?3Czr2o4dt81

Cdlmnt
0
caro__48 Messages postés 242 Date d'inscription   Statut Membre Dernière intervention   61
 
Oh punaise c'est super ça marche!!
Merci merci c'est trop bien!!
0

Vous n’avez pas trouvé la réponse que vous recherchez ?

Posez votre question
Réponse 5 / 5
Mike-31 Messages postés 18405 Date d'inscription   Statut Contributeur Dernière intervention   5 135
 
Re, Salut Ccm,

ou comme ça

Sub Essai()
Application.ScreenUpdating = False
Dim Ligne As Long
For Ligne = Range("D65536").End(xlUp).Row To 2 Step -1
If Range("D" & Ligne) <> Range("D" & Ligne - 1) Then
Range("A" & Ligne).EntireRow.Insert
End If
Next
Application.ScreenUpdating = False
End Sub
0
caro__48 Messages postés 242 Date d'inscription   Statut Membre Dernière intervention   61
 
Ca marche aussi :)
Trop bien, Merci Merci, Je vais gagner un temps de fou!!
0

Discussions similaires

script et traitement par lot sur photoshop CS4
arsenik59fr -
Zora -

32 réponses
Conseils SEO et automatisation
Assina01 -
26MKG25 -

1 réponse
Photoshop' traitement par lot
Pioupiou -
well3 -

4 réponses
automatisation Solveur
BFEXCEL -
BFEXCEL -

4 réponses
Script d'automatisation d'installation
Maxi504 -
Mr3kJ -

14 réponses