XL pour MAC Refonte complete d'un fichier, besoin d'idées

ChTi160 à dit:

Re
tu as mis :

VB:

 ReDim t(1 To .Columns.Count)
    For Each cell In Range("ReportJanv21").Cells
        k = k + 1
        t(k) = cell.Value
ReDim Preserve t(k)
    Next cell

tu as deux Redim
1°

VB:

 ReDim t(1 To .Columns.Count)

tu auras donc un Tableau T qui comptera autant de Colonnes que de Colonne dans ta plage
"SuiviJanv21"
Donc plus besoin de redimensionner avec ReDim Preserve t(k) surtout que tu redimensionnes après avoir collé la Valeur de Cell
On ReDim Preserve avant de Coller la valeur!
c'est l'un ou l'autre
Tu pourrais mettre Redim Preserve t(1 to 10000) tu auras alors 10000 place de stockage. plus besoin de Redim
et ensuite faire
k=k+1
t(k)=cell.value
Tu auras en fonction de tes données des lignes du tableau qui seront vides!
que si tu Redim au fur et à mesure soit
CODE=vb]For Each cell In Range("ReportJanv21").Cells
k = k + 1
ReDim Preserve t(k) 'on Redim le tableau
t(k) = cell.Value 'on entre la valeur sur cette Nouvelle position ajoutée
Next cell[/CODE]
je vais essayer de regarder à quoi correspond

VB:

Range("ReportJanv21").Cells

jean marie

Cliquez pour agrandir...

Sub Archive(remplacer As Integer)

With Range("SuiviJanv21")
    If remplacer = 0 Then
        nvl = .Rows.Count - Application.CountBlank(.Columns(1)) + 1
    Else
        nvl = Evaluate("MATCH(1, (Suivi[NomPrenom]=BCJanv2021!D4;E4)*(INT(Suivi[DateDemande])=INT(BCJanv2021!D6)), 0)")
    End If
ReDim t(1 To .Columns.Count)
    For Each cell In Range("ReportJanv21").Cells
        k = k + 1
        t(k) = cell.Value
   Next cell
        .Cells(nvl, 1).Resize(1, .Columns.Count) = t
End With

End Sub

Staple1600 à dit:

Re

Je n'ai pas eu le temps de voir ta dernière PJ
(mais puisque Mac obligatoire)
Voici sur quoi je partirai pour saisir les données
Regarde la pièce jointe 1100324
Et ci-dessous le code VBA attaché au bouton

VB:

Sub SimiliForm()
Dim donnees$, r As Range
donnees = "B2,B4,B6,B8,B10"
Application.ScreenUpdating = False
Set r = Range(donnees)
If Application.CountA(r) <> r.Cells.Count Then
MsgBox "Saisie incomplète", vbCritical, "ERREUR"
Exit Sub
Else
r.Copy
Feuil2.Cells(Rows.Count, 1).End(3)(2).PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks:=True, Transpose:=True
Application.CutCopyMode = False
r.ClearContents
r(1).Select
End If
End Sub

Cliquez pour agrandir...

Staple1600 à dit:

rE

Concernant le code de mon bouton, je le remets ici avec commentaires

VB:

Sub SimiliForm()
Dim donnees$, r As Range
donnees = "B2,B4,B6,B8,B10" ' adapter les adresses des cellules
Application.ScreenUpdating = False
Set r = Range(donnees) ' définition de la plage de cellules r
If Application.CountA(r) <> r.Cells.Count Then
MsgBox "Saisie incomplète", vbCritical, "ERREUR"
Exit Sub
Else
r.Copy ' on copie la plage
Feuil2.Cells(Rows.Count, 1).End(3)(2).PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks:=True, Transpose:=True
' et on colle en transposant dans la première cellule vide de la colonne A
Application.CutCopyMode = False
r.ClearContents
r(1).Select
End If
End Sub

Dans cet exemple, la recopie se fait sur une feuille dont le codename est Feuil2
(Donc il faut adapter le cas échéant)

Cliquez pour agrandir...

Staple1600 à dit:

Re

Tu peux joindre ton classeur de test stp ?
(avec le code actuel que tu utilises)

Cliquez pour agrandir...

Phil69970 à dit:

Re

Perso je supprimerais toutes les colonnes fusionnées pour commencer.....

@Phil69970

Cliquez pour agrandir...

Staple1600 à dit:

Re, Bonsoir Phil

Tout pareil que Phil
Vire-moi toutes ces cochoncetés
Pas de format, pas de couleur, pas de cellules fusionnées etc..
Nous sommes en phase de test
Donc on part d'un fichier vierge ( ce qui d'emblée règle la question RGPD et anonymat )
et on conçoit le bousin, brique par brique.
Ici il s'agit de rendre ergonomique la saisie des données puis de les archiver ensuite sur un autre feuille.
Ce n'est que quand tout sera fonctionnel que tu pourras faire du gribouillage et de l'esthétique.
Et c'est à cet étape, que tu verras ton classeur prendre de l'embonpoint.


Evidemment tu peux jeter aux orties tout ce que je viens d'écrire
Ce qui me permettra de me convaincre que je n'ai pas réussi à te sensibiliser au K.I.S.S

Cliquez pour agrandir...

Staple1600 à dit:

Re

Tu m'as mal écouté
Il n'y a pas de Feuil2 dans ton fichier
(enfin au sens où je l'explique dans le message#123)
Faire une recherche sur ce qu'est le codename d'une feuille.

Cliquez pour agrandir...