Ceci est une page optimisée pour les mobiles. Cliquez sur ce texte pour afficher la vraie page.

Ajout d'une Colonne à la derniere Cellule Vide d'une Ligne

Créer une discussion

Boostez vos compétences Excel avec notre communauté !

Rejoignez Excel Downloads, le rendez-vous des passionnés où l'entraide fait la force. Apprenez, échangez, progressez – et tout ça gratuitement ! 👉 Inscrivez-vous maintenant !

S'inscrire
M

Maohtsukai

XLDnaute Nouveau
Bonjour à tous,

étant encore novice dans l'utilisation de VBA, je me permets de vous demander votre aide quant à l'élaboration d'une macro qui me permettrait dans un premier temps de trouver la premiere cellule vide dans une ligne donnée à partir d'un certain point, et dans un second temps de rajouter une colonne à partir de celle-ci...

Le mieux que j'ai réussi à faire jusqu'à présent est de me positionner sur la premiere cellule vide de cette ligne, mais celle-ci n'est pas dans le range que je veux. En effet, je cherche à me positionner à la premiere cellule vide de la Ligne 23 par exemple, à partir de la colonne N, et tout ce que je réussi à faire c'est à me positionner sur la premiere cellule vide de cette ligne qui est sur la colonne E.

Merci pour toute aide, encore plus si elle est précieuse 😛
 
Trier par date Trier par votes
Re : Ajout d'une Colonne à la derniere Cellule Vide d'une Ligne

Bonjour Maohtsukai

et bienvenue sur XLD

Si j'ai bien compris

Code: 
Sub test()
If Cells(23, 256).End(xlToLeft).Column > Range("N23").Column Then
 Cells(23, Cells(23, 256).End(xlToLeft).Column + 1).Select
Else
 Range("N23").Select
End If
End Sub
 
Vote positif 0 Vote négatif
Re : Ajout d'une Colonne à la derniere Cellule Vide d'une Ligne

Bonjour Pierre Jean,

Tout d'abord Merci de m'accorder un peu de temps afin de réaliser cette macro.

Ensuite, La macro ne fonctionne pas dans le sens où elle selectionne une cellule vide, mais avant le début de ma selection. Je m'explique :

Sur la ligne 23, je ne commence mes entrées (qui sont des dates : 2008.Jan, 2008.Fev, etc...) seulement à partir de la colonne N, c'est-à-dire que de la colonne N à la colonne AI, il y a des données sur la ligne 23. Mais cela est aussi le cas des colonnes A à L.

Ce que je cherche à faire, c'est de selectionner la premiere cellule vide après la colonne AI afin d'y insérer une colonne pour rentrer la nouvelle date (exemple : Cells(46;AI)=2008.Sep, insérer une colonne après la Colonne AI pour la date 2008.Oct).

j'ai essayé avec la macro suivante, mais malheureusement elle ne fonctionne pas non plus :

Sub AddListColumn()
Dim I As Integer
Dim col As Integer 'Declare the variable as number

col = 15 'Starts to search on col 15(O)
Const R1 = "EVTIM" 'rem à remplacer par ta donnée 1


For I = 15 To 255

While Cells(23, I).Value = ""

If Cells(23, I) = "" Then
Range("Cells(23,I)").Value = Range("Cells(23,I - 1)").Value

End If
col = col + 1
Wend
Next

End Sub

Merci pour toute l'aide que vous pouriez m'apporter
 
Vote positif 0 Vote négatif
Re : Ajout d'une Colonne à la derniere Cellule Vide d'une Ligne

Re

En supposant que j'aie compris

Code: 
Sub test()
'pour mettre arecopier dans la 1ere cellule vide
'apres la colonne AI ,sur la ligne: ligne
ligne = 23
arecopier = "2008.octobre"
For n = 36 To 256
 If Cells(ligne, n) = "" Then
  Cells(ligne, n) = arecopier
  Exit For
 End If
Next n
End Sub
 
Vote positif 0 Vote négatif
Re : Ajout d'une Colonne à la derniere Cellule Vide d'une Ligne

On y est presque !!!

Merci pour tout, le seul probleme, c'est l'insertion de colonne, dans le sens ou il insere le "arecopier" mais il n'insere pas de colonne à cet endroit. Sauriez-vous comment faire pour insérer cette colonne???
 
Vote positif 0 Vote négatif
Re : Ajout d'une Colonne à la derniere Cellule Vide d'une Ligne

Re

Code: 
Sub test()
'pour mettre arecopier dans la 1ere cellule vide
'apres la colonne AI ,sur la ligne: ligne
ligne = 23
arecopier = "2008.octobre"
For n = 36 To 256
 If Cells(ligne, n) = "" Then
  Columns(n).Insert
  Cells(ligne, n) = arecopier
  Exit For
 End If
Next n
End Sub
 
Vote positif 0 Vote négatif
Re : Ajout d'une Colonne à la derniere Cellule Vide d'une Ligne

Parfait ! La macro marche à merveille 😀 c'était vraiment ce qu'il me fallait !! Merci encore !!!

Si je peux abuser de votre temps encore un tout petit peu Pierre Jean, est-ce que vous sauriez comment insérer la valeur de la derniere cellule remplie dans celle que l'on vient d'ajouter juste après celle-ci ???
 
Vote positif 0 Vote négatif
Re : Ajout d'une Colonne à la derniere Cellule Vide d'une Ligne

Re

A tester

Code: 
Sub test()
'pour mettre arecopier dans la 1ere cellule vide
'apres la colonne AI ,sur la ligne: ligne
ligne = 23
arecopier = "2008.octobre"
For n = 36 To 256
 If Cells(ligne, n) = "" Then
  Columns(n).Insert
  Cells(ligne, n) = Cells(ligne,n-1) & " " & arecopier
  Exit For
 End If
Next n
End Sub
 
Vote positif 0 Vote négatif
Identifiez-vous ou inscrivez-vous pour participer.
Rejoins nos membres "Supporter XLD" et booste ton expérience Excel !
- Navigue sans publicité
- Accède à Cléa, notre assistante IA experte Excel... et pas que...
- Profite de fonctionnalités exclusives
Ton soutien permet à Excel Downloads de rester 100% gratuit et de continuer à rassembler les passionnés d'Excel.
Je deviens Supporter XLD

Discussions similaires

J
  • Question Question
Autres Extraire chaque mot d'une phrase dans plusieurs cellule en colonne même ligne
2
Réponses
17
Affichages
365
jmst1
J
  • Résolu(e)
XL 2021 Soucis d’effacement dans ma colonne AE
2
Réponses
23
Affichages
557
ARRU
  • Résolu(e)
XL 2019 macro avec fonction copié coller si rempli par la macro
Réponses
12
Affichages
431
AtTheOne
J
  • Question Question
XL 2019 Problème d'affichage sur cellule non-vide pour Excel
Réponses
6
Affichages
227
JFC256
J
B
  • Résolu(e)
Microsoft 365 Recherche de plusieurs critères dans une cellule
2
Réponses
19
Affichages
363
Bambi35
B
K
  • Question Question
Microsoft 365 Planification avec variables d'ajustement
Réponses
8
Affichages
107
Kristelle1555
K
O
  • Question Question
XL 2021 copie ligne en fonction d'une cellule
Réponses
3
Affichages
136
wDog66
  • Résolu(e)
XL 2021 VBA - Comment ajuster la largeur d'une colonne sur une cellule qui contient des retours à la ligne
Réponses
9
Affichages
386
Phil69970
A
  • Question Question
XL 2019 Copie d'une valeur dans la cellule à côté d'une valeur trouvé
Réponses
1
Affichages
451
sylvanu
E
  • Question Question
XL 2016 concatener les cellules d'une colonne jusque la derniere non vide
Réponses
7
Affichages
573
Cousinhub
R
  • Question Question
XL pour MAC Rechercher une valeur non vide
Réponses
4
Affichages
144
sylvanu
A
  • Question Question
Déplacer données en vba
Réponses
3
Affichages
470
akm
A
C
  • Question Question
XL 2016 récupérer la mise en forme d'une cellule vers une autre cellule
Réponses
1
Affichages
422
TooFatBoy
  • Résolu(e)
XL 2021 tri par lignes
2
Réponses
19
Affichages
842
rastafouette
A
  • Résolu(e)
XL 2021 Ajustement automatique d'une référence cellule dans une macro ?
Réponses
2
Affichages
290
Alamyr
A
P
  • Résolu(e)
XL 2021 Comment détecter la modification MANUELLE d'une cellule dans une feuille ?
Réponses
3
Affichages
90
PRy
P
T
  • Question Question
XL 2019 tableau , cellule protégé et ligne vide
Réponses
2
Affichages
193
sylvanu
  • Résolu(e)
XL 2019 Erreur de Type à la ligne 5581
Réponses
5
Affichages
210
Titof06
J
  • Question Question
Microsoft 365 Naviguer dans un tableau pour copier des données dans un modèle et copier l'un derrière l'autre
Réponses
11
Affichages
405
AtTheOne
T
  • Question Question
Microsoft 365 Afficher des résultats d'une colonne sur une ligne
Réponses
3
Affichages
261
toto142
T
Menu
Connexion
S'inscrire
Les cookies sont requis pour utiliser ce site. Vous devez les accepter pour continuer à utiliser le site. En savoir plus…