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

Pierrot93

XLDnaute Barbatruc

• 30 Mars 2011

• #2

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
@+

 

Vote positif 0 Vote négatif

libellule85

XLDnaute Accro

• 30 Mars 2011

• #3

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.

 

Pièces jointes

• Tableau.xls

  41 KB · Affichages: 48
• Tableau.xls

  41 KB · Affichages: 54
• Tableau.xls

  41 KB · Affichages: 52

Vote positif 0 Vote négatif

Pierrot93

XLDnaute Barbatruc

• 30 Mars 2011

• #4

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

Code:

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

 

Vote positif 0 Vote négatif

libellule85

XLDnaute Accro

• 30 Mars 2011

• #5

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

 

Pièces jointes

• Re-Tableau.xls

  56.5 KB · Affichages: 56

Vote positif 0 Vote négatif

Pierrot93

XLDnaute Barbatruc

• 30 Mars 2011

• #6

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

 

Vote positif 0 Vote négatif

Pierrot93

XLDnaute Barbatruc

• 30 Mars 2011

• #7

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

Re,

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

Code:

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

 

Vote positif 0 Vote négatif

libellule85

XLDnaute Accro

• 30 Mars 2011

• #8

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

 

Vote positif 0 Vote négatif