Suppr cellule vide à gauche
Résolu/Fermé
A voir également:
- Suppr cellule vide à gauche
- Windows 11 barre des taches a gauche - Guide
- Aller à la ligne dans une cellule excel - Guide
- Si cellule contient texte alors ✓ - Forum Excel
- Verrouiller cellule excel - Guide
- Supprimer page vide word - Guide
9 réponses
Polux31
Messages postés
6917
Date d'inscription
mardi 25 septembre 2007
Statut
Membre
Dernière intervention
1 novembre 2016
1 204
5 août 2014 à 12:09
5 août 2014 à 12:09
Bonjour,
Il y a t'il un début de macro ou autre que l'on puisse corriger ?
Il y a t'il un début de macro ou autre que l'on puisse corriger ?
Vous n’avez pas trouvé la réponse que vous recherchez ?
Posez votre question
pijaku
Messages postés
12263
Date d'inscription
jeudi 15 mai 2008
Statut
Modérateur
Dernière intervention
4 janvier 2024
2 744
6 août 2014 à 09:44
6 août 2014 à 09:44
Bonjour,
Tu souhaites partir de ton premier tableau ou du second pour obtenir le troisième???
Tu souhaites partir de ton premier tableau ou du second pour obtenir le troisième???
Je souhaiterais partir du 1er pour arriver au 3e...
Le second tableau s'est ce que j'ai actuellement et qui ne me convient pas a cause des vides...
Le second tableau s'est ce que j'ai actuellement et qui ne me convient pas a cause des vides...
pijaku
Messages postés
12263
Date d'inscription
jeudi 15 mai 2008
Statut
Modérateur
Dernière intervention
4 janvier 2024
2 744
6 août 2014 à 13:10
6 août 2014 à 13:10
Bon.
tu traces un bouton (!!! Contrôle activex par contrôle de formulaire) sur ta feuille.
Tu double clic dessus
Copie/colle ce code :
revient dans ta feuille et sort du mode création;
Puis teste
tu traces un bouton (!!! Contrôle activex par contrôle de formulaire) sur ta feuille.
Tu double clic dessus
Copie/colle ce code :
Private Sub CommandButton1_Click()
Decale_A_Gauche
End Sub
Sub Decale_A_Gauche()
Dim Col As Integer
For Col = 7 To 2 Step -1
If Cells(4, Col).Value = "NON" Then Range(Cells(4, Col), Cells(4, Col).Offset(5, 0)).Delete Shift:=xlToLeft
If Cells(10, Col).Value = "B" Then Range(Cells(10, Col), Cells(10, Col).Offset(3, 0)).Delete Shift:=xlToLeft
Next Col
End Sub
revient dans ta feuille et sort du mode création;
Puis teste
d'accord ! Merci
J'ai trouvé une alternative avec une formule matricielle qui fonctionne
J'ai trouvé une alternative avec une formule matricielle qui fonctionne
pijaku
Messages postés
12263
Date d'inscription
jeudi 15 mai 2008
Statut
Modérateur
Dernière intervention
4 janvier 2024
2 744
6 août 2014 à 14:11
6 août 2014 à 14:11
Et qu'elle est cette formule magique?
Voila en oubliant pas de valider en faisant Ctrl + MAJ +Enter :
http://cjoint.com/?3HgpbQdr5Ui
Bonne journée !
http://cjoint.com/?3HgpbQdr5Ui
Bonne journée !
pijaku
Messages postés
12263
Date d'inscription
jeudi 15 mai 2008
Statut
Modérateur
Dernière intervention
4 janvier 2024
2 744
6 août 2014 à 15:03
6 août 2014 à 15:03
Ok.
Merci.
Je la place ici cela peux servir à d'autres...
=SIERREUR(INDEX($B$5:$G$5;;PETITE.VALEUR(SI($B$4:$G$4="OUI";COLONNE($B$4:$G$4)-1);COLONNE()-1));"")
Merci.
Je la place ici cela peux servir à d'autres...
=SIERREUR(INDEX($B$5:$G$5;;PETITE.VALEUR(SI($B$4:$G$4="OUI";COLONNE($B$4:$G$4)-1);COLONNE()-1));"")
