J'ai un souci avec le tableau en copie.
Quand je mets une valeur en A10, mon tableau mis en forme est normalement censé s'agrandir pour englober la nouvelle ligne tapée, or cela ne fonctionne plus.
Je peux toujours faire Tab dans la dernière cellule du tableau pour l'agrandir, mais le souci est que je colle des données sous le tableau pour l'alimenter et que je ne peux donc pas faire tab. Je peux aussi l'agrandir par la suite avec les flèches, mais ce fonctionnement n'est pas normal.
D'autant qu'à ma dernière utilisation du fichier, cela fonctionnait.
Pourriez-vous m'aider s'il vous plaît ?
Bonjour Lisette,
Sauf si je n'ai pas compris votre problème. Lorsque j'écris en A10 le tableau s'agrandit bien automatiquement.
( Je suis sous XL2007)
Etes vous sortie d' XL puis re rentrée ( ou même rebooter pour voir ). Parce que là, tout semble marcher.
Bonjour @sylvanu ! Merci pour votre réponse.
C'est bien cela, mais ce qui m'inquiète c'est que je suis sortie et j'ai même redémarré mon PC pour être sure...
Bonjour @laurent950 Effectivement, la macro n'est pas très élégante, mais elle fonctionnait ;(
Par contre, même avec vos modifications, j'ai toujours le même problème.
Voici ce que j'obtiens
Bonjour le fil,
Le problème n'est pas lié à la macro.
J'ai testé, elle n'est pas activée lorsqu'on rajoute une ligne, qui pourtant fonctionne bien.
Ce qui est sur c'est que le fichier livré fonctionne. Donc le problème vient d'autre part : XL, options, windows ...
Bonjour Lisette, sylvanus.
La procédure VBA n'est pas liée mais elle est pas écrite comme il faut, si elle doit servir dans le futur je l'ai corrigé.
J'ai corrigé :
Votre code ci dessous avant correction.
VB:
Sub CREATION()
'
' CREATION Macro
'
Application.ScreenUpdating = False
Range("i4,i5,i6,i7,i8").Copy
Set Derligne = Sheets("DOCUMENTS ACTIFS").Range("$A$70000").End(xlUp).Offset(1, 0)
Derligne.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, Transpose:=True
Sheets("CREATION").Select
MsgBox "Informations enregistées dans l'onglet Documents Actifs", vbOKOnly + vbInformation, "SUCCES"
Application.ScreenUpdating = True
End Sub
Le code corrigé : ci-dessous.
Les affectations sont cohérentes avec cette nouvelles procédure.
exemple :
- Range("i4,i5,i6,i7,i8").Copy
La copie de la plage se fait sur qu'elle feuille ! CREATION ou DOCUMENTS ACTIFS (Comme il y a plus d'une feuille dans le classeur)
- A présent la copie se fera bien sur la feuille ! CREATION
- FCreat.Range("i4,i5,i6,i7,i8").Copy
- c'est l'idée de cette correction
VB:
Sub CREATION()
'
' CREATION Macro
'
Application.ScreenUpdating = False
'
' Feuille : DOCUMENTS ACTIFS
Dim FdocActif As Worksheet
Set FdocActif = Worksheets("DOCUMENTS ACTIFS")
Dim Derligne As Range
' Feuille : CREATION
Dim FCreat As Worksheet
Set FCreat = Worksheets("CREATION")
'
' Feuille : CREATION
FCreat.Range("i4,i5,i6,i7,i8").Copy
'
' Feuille : DOCUMENTS ACTIFS
Set Derligne = FdocActif.Range("$A$70000").End(xlUp).Offset(1, 0)
Derligne.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, Transpose:=True
' Feuille : CREATION
FCreat.Activate
'
MsgBox "Informations enregistées dans l'onglet Documents Actifs", vbOKOnly + vbInformation, "SUCCES"
'
Application.ScreenUpdating = True
'
End Sub
VBA Corrigé ! = Import valeur de la feuille "CRÉATION" par Copier puis Coller vers la feuille "DOCUMENTS ACTIFS"
Merci pour vos réponses.
J'ai fait un autre tableau dans un fichier vierge et le problème est effectivement le même.
Je cherche partout dans les options, mais je ne trouve rien du tout...
Dans ce cas, plus simple. Demandez à votre service informatique de vous réinstaller Office;
D'ailleurs ils ont surement une procédure pour le faire, et vous la donnerons ... pour éviter de le faire aux même.
Mais avez vous vérifier que Clic droit dans le coin bas gauche de l'écran, puis Applications et Fonctionnalités est inopérant ?
si accessible, vous recherchez Office/Option avancées/Réparer.
Là si, tout est bloqué... J'ai vérifié et ils demandent un identifiant administrateur, qui n'est bien sur par le mien...
En tous cas, merci beaucoup pour votre aide, je vais essayer le service dépannage, qui est... en Roumanie...
Bonjour à tous !
Petit update car j'ai finalement trouvé la solution, qui résidait dans les options !
Fichier
Options
Vérification
Cliquer sur "Options de correction automatique"
Onglet "Mise en forme automatique au cours de la frappe"
Cocher : "Inclure de nouvelles lignes et colonnes dans le tableau"
J'avoue que je ne suis pas honteuse de ne pas être allée dénicher cette option là-dedans !
Par contre, aucune idée sur le pourquoi du comment je l'ai décoché...