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

[Maohtsukai]

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 😛

 

[pierrejean]

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

Bonjour Maohtsukai

et bienvenue sur XLD

Si j'ai bien compris

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

 

[Maohtsukai]

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

 

[pierrejean]

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

Re

En supposant que j'aie compris

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

 

[Maohtsukai]

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???

 

[pierrejean]

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

Re

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

 

[Maohtsukai]

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 ???

 

[pierrejean]

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

Re

A tester

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