Problème dans la macro grille de saisie quand cellules sont fusionnées

[libellule85]

Bonjour tout le monde,
Voici mon problème, j'ai une macro (ci-dessous) pour intégrer une grille de saisie (mon tableau va de A6 à F6). Or quand j'ai 5 données à intégrer, il n'y en a que quatre qui le sont la cinquième n'apparait pas. Ceci est dû au fait que les cellules D et E qui sont fusionnées.

Dim i As Integer, Li As Integer
Private Sub CommandButton1_Click()
If ActiveSheet.Range("A6").Value = "" Then
Li = 5
Else
Li = ActiveSheet.Range("a65536").End(xlUp).Row + 1
End If

For i = 1 To 5
Cells(Li, i).Value = Me.Controls("Textbox" & i).Value
Next i
End Sub

Est il possible de modifier ce code ?
Merci pour vos réponses

 

[Pierrot93]

Re : Problème dans la macro grille de saisie quand cellules sont fusionnées

Bonjour,

perso, pas tout compris, un petit fichier représentant le problème posé serait le bienvenu...

A noter qu'en vba, les cellules fusionnées, c'est pas le top...

bon après midi
@+

 

[libellule85]

Re : Problème dans la macro grille de saisie quand cellules sont fusionnées

Bonjour Pierrot93,
Trouves en pièce jointe le tableau la saisie va de la colonne A à F.

 

[Pierrot93]

Re : Problème dans la macro grille de saisie quand cellules sont fusionnées

Re,

peut être ainsi, non testé, pas d'usf dispo dans ton fichier ...

Dim c As Range
For Each c In Cells(li, 1).Resize(, 6).Areas
    c.Value = Me.Controls("Textbox" & i).Value
Next c

 

[libellule85]

Re : Problème dans la macro grille de saisie quand cellules sont fusionnées

Re-Pierrot,
Trouves en pièce jointe mon tableau avec la macro

 

[Pierrot93]

Re : Problème dans la macro grille de saisie quand cellules sont fusionnées

Re,

le code proposé n'a pas fonctionné ? l'as tu essayé / adapté ?

 

[Pierrot93]

Re : Problème dans la macro grille de saisie quand cellules sont fusionnées

Re,

bon essaye comme suit, à l'air de fonctionner :

Private Sub CommandButton1_Click()
Dim i As Integer, Li As Integer
Dim c As Range
If ActiveSheet.Range("A7").Value = "" Then
     Li = 7
Else
     Li = ActiveSheet.Range("a65536").End(xlUp).Row + 1
End If
For i = 1 To 5
    Cells(Li, IIf(i < 5, i, 6)) = Me.Controls("Textbox" & i).Value
Next i
End Sub

 

[libellule85]

Re : Problème dans la macro grille de saisie quand cellules sont fusionnées

Re-Pierrot93,
Excuses moi pour le temps que je mets pour la réponse (problème de rogue sur mon ordi !!).
Le code que tu m'a mis fonctionne à merveille
Merci beaucoup
Bonne soirée