Bonsoir à Toutes et à Tous,
Je souhaite récupérer des informations (date, numéro et nom) saisies dans
des TxtBoxes à l'intérieur d'une Frame le tout sur une UserForm.
La "recopie" ne fonctionne pas.
Qu'oublie-je ?
Sub NouvelleInscription()
Dim R As Long
'Détermine la hauteur de la base de données
With Sheets("Base de Données")
R = .Range("f65536").End(xlUp).Row + 1
If R < 8 Then R = 8
End With
MsgBox R
'Jusque là, cela fonctionne, c'est la recopie (code suivant) qui bloque.
With Sheets("Base de Données")
.Range("b" & R).Value = txtDateCréat.Value
.Range("e" & R).Value = txtNuméroIncrip.Value
.Range("f" & R).Value = txtNomEnf.Value
End With
End Sub
Merci d'avance de votre aide
Michel (le seul qui s'accroche)
Bonsoir à Toutes et à Tous,
Je souhaite récupérer des informations (date, numéro et nom) saisies dans
des TxtBoxes à l'intérieur d'une Frame le tout sur une UserForm.
La "recopie" ne fonctionne pas.
Qu'oublie-je ?
Sub NouvelleInscription()
Dim R As Long
'Détermine la hauteur de la base de données
With Sheets("Base de Données")
R = .Range("f65536").End(xlUp).Row + 1
If R < 8 Then R = 8
End With
MsgBox R
'Jusque là, cela fonctionne, c'est la recopie (code suivant) qui bloque.
With Sheets("Base de Données")
.Range("b" & R).Value = txtDateCréat.Value
.Range("e" & R).Value = txtNuméroIncrip.Value
.Range("f" & R).Value = txtNomEnf.Value
End With
End Sub
Merci d'avance de votre aide
Michel (le seul qui s'accroche)
Bonsoir à Toutes et à Tous,
Je souhaite récupérer des informations (date, numéro et nom) saisies dans
des TxtBoxes à l'intérieur d'une Frame le tout sur une UserForm.
La "recopie" ne fonctionne pas.
Qu'oublie-je ?
Sub NouvelleInscription()
Dim R As Long
'Détermine la hauteur de la base de données
With Sheets("Base de Données")
R = .Range("f65536").End(xlUp).Row + 1
If R < 8 Then R = 8
End With
MsgBox R
'Jusque là, cela fonctionne, c'est la recopie (code suivant) qui bloque.
With Sheets("Base de Données")
.Range("b" & R).Value = txtDateCréat.Value
.Range("e" & R).Value = txtNuméroIncrip.Value
.Range("f" & R).Value = txtNomEnf.Value
End With
End Sub
Merci d'avance de votre aide
Michel (le seul qui s'accroche)
Bonsoir à Toutes et à Tous,
Je souhaite récupérer des informations (date, numéro et nom) saisies dans
des TxtBoxes à l'intérieur d'une Frame le tout sur une UserForm.
La "recopie" ne fonctionne pas.
Qu'oublie-je ?
Sub NouvelleInscription()
Dim R As Long
'Détermine la hauteur de la base de données
With Sheets("Base de Données")
R = .Range("f65536").End(xlUp).Row + 1
If R < 8 Then R = 8
End With
MsgBox R
'Jusque là, cela fonctionne, c'est la recopie (code suivant) qui bloque.
With Sheets("Base de Données")
.Range("b" & R).Value = txtDateCréat.Value
.Range("e" & R).Value = txtNuméroIncrip.Value
.Range("f" & R).Value = txtNomEnf.Value
End With
End Sub
Merci d'avance de votre aide
Michel (le seul qui s'accroche)
Bonsoir à Toutes et à Tous,
Je souhaite récupérer des informations (date, numéro et nom) saisies dans
des TxtBoxes à l'intérieur d'une Frame le tout sur une UserForm.
La "recopie" ne fonctionne pas.
Qu'oublie-je ?
Sub NouvelleInscription()
Dim R As Long
'Détermine la hauteur de la base de données
With Sheets("Base de Données")
R = .Range("f65536").End(xlUp).Row + 1
If R < 8 Then R = 8
End With
MsgBox R
'Jusque là, cela fonctionne, c'est la recopie (code suivant) qui bloque.
With Sheets("Base de Données")
.Range("b" & R).Value = txtDateCréat.Value
.Range("e" & R).Value = txtNuméroIncrip.Value
.Range("f" & R).Value = txtNomEnf.Value
End With
End Sub
Merci d'avance de votre aide
Michel (le seul qui s'accroche)
Bonsoir à Toutes et à Tous,
Je souhaite récupérer des informations (date, numéro et nom) saisies dans
des TxtBoxes à l'intérieur d'une Frame le tout sur une UserForm.
La "recopie" ne fonctionne pas.
Qu'oublie-je ?
Sub NouvelleInscription()
Dim R As Long
'Détermine la hauteur de la base de données
With Sheets("Base de Données")
R = .Range("f65536").End(xlUp).Row + 1
If R < 8 Then R = 8
End With
MsgBox R
'Jusque là, cela fonctionne, c'est la recopie (code suivant) qui bloque.
With Sheets("Base de Données")
.Range("b" & R).Value = txtDateCréat.Value
.Range("e" & R).Value = txtNuméroIncrip.Value
.Range("f" & R).Value = txtNomEnf.Value
End With
End Sub
Merci d'avance de votre aide
Michel (le seul qui s'accroche)
Bonjour,
Essayez avec cette correction
.Range("b" & R & "").Value = txtDateCréat.Value
.Range("e" & R & "").Value = txtNuméroIncrip.Value
.Range("f" & R & "").Value = txtNomEnf.Value
Est-ce mieux ?
Cordialement.
PMO
Patrick MorangeBonsoir à Toutes et à Tous,
Je souhaite récupérer des informations (date, numéro et nom) saisies dans
des TxtBoxes à l'intérieur d'une Frame le tout sur une UserForm.
La "recopie" ne fonctionne pas.
Qu'oublie-je ?
Sub NouvelleInscription()
Dim R As Long
'Détermine la hauteur de la base de données
With Sheets("Base de Données")
R = .Range("f65536").End(xlUp).Row + 1
If R < 8 Then R = 8
End With
MsgBox R
'Jusque là, cela fonctionne, c'est la recopie (code suivant) qui bloque.
With Sheets("Base de Données")
.Range("b" & R).Value = txtDateCréat.Value
.Range("e" & R).Value = txtNuméroIncrip.Value
.Range("f" & R).Value = txtNomEnf.Value
End With
End Sub
Merci d'avance de votre aide
Michel (le seul qui s'accroche)
Bonjour,
Essayez avec cette correction
.Range("b" & R & "").Value = txtDateCréat.Value
.Range("e" & R & "").Value = txtNuméroIncrip.Value
.Range("f" & R & "").Value = txtNomEnf.Value
Est-ce mieux ?
Cordialement.
PMO
Patrick Morange
Bonsoir à Toutes et à Tous,
Je souhaite récupérer des informations (date, numéro et nom) saisies dans
des TxtBoxes à l'intérieur d'une Frame le tout sur une UserForm.
La "recopie" ne fonctionne pas.
Qu'oublie-je ?
Sub NouvelleInscription()
Dim R As Long
'Détermine la hauteur de la base de données
With Sheets("Base de Données")
R = .Range("f65536").End(xlUp).Row + 1
If R < 8 Then R = 8
End With
MsgBox R
'Jusque là, cela fonctionne, c'est la recopie (code suivant) qui bloque.
With Sheets("Base de Données")
.Range("b" & R).Value = txtDateCréat.Value
.Range("e" & R).Value = txtNuméroIncrip.Value
.Range("f" & R).Value = txtNomEnf.Value
End With
End Sub
Merci d'avance de votre aide
Michel (le seul qui s'accroche)
Bonjour,
Essayez avec cette correction
.Range("b" & R & "").Value = txtDateCréat.Value
.Range("e" & R & "").Value = txtNuméroIncrip.Value
.Range("f" & R & "").Value = txtNomEnf.Value
Est-ce mieux ?
Cordialement.
PMO
Patrick MorangeBonsoir à Toutes et à Tous,
Je souhaite récupérer des informations (date, numéro et nom) saisies dans
des TxtBoxes à l'intérieur d'une Frame le tout sur une UserForm.
La "recopie" ne fonctionne pas.
Qu'oublie-je ?
Sub NouvelleInscription()
Dim R As Long
'Détermine la hauteur de la base de données
With Sheets("Base de Données")
R = .Range("f65536").End(xlUp).Row + 1
If R < 8 Then R = 8
End With
MsgBox R
'Jusque là, cela fonctionne, c'est la recopie (code suivant) qui bloque.
With Sheets("Base de Données")
.Range("b" & R).Value = txtDateCréat.Value
.Range("e" & R).Value = txtNuméroIncrip.Value
.Range("f" & R).Value = txtNomEnf.Value
End With
End Sub
Merci d'avance de votre aide
Michel (le seul qui s'accroche)
Bonsoir Michel ( j'ai vu dans le fil anniversaire ! )
Ton code tel que fonctionne très bien chez moi sur un userform
ayant les 3 textbox nommés tels les tiens et la feuille de données nommée
itou.
Le pb vient d'ailleurs ?
Claude
"Péhemme" a écrit dans le message de news:
418bb8ed$0$18866$Bonsoir à Toutes et à Tous,
Je souhaite récupérer des informations (date, numéro et nom) saisies dans
des TxtBoxes à l'intérieur d'une Frame le tout sur une UserForm.
La "recopie" ne fonctionne pas.
Qu'oublie-je ?
Sub NouvelleInscription()
Dim R As Long
'Détermine la hauteur de la base de données
With Sheets("Base de Données")
R = .Range("f65536").End(xlUp).Row + 1
If R < 8 Then R = 8
End With
MsgBox R
'Jusque là, cela fonctionne, c'est la recopie (code suivant) qui bloque.
With Sheets("Base de Données")
.Range("b" & R).Value = txtDateCréat.Value
.Range("e" & R).Value = txtNuméroIncrip.Value
.Range("f" & R).Value = txtNomEnf.Value
End With
End Sub
Merci d'avance de votre aide
Michel (le seul qui s'accroche)
Bonsoir Michel ( j'ai vu dans le fil anniversaire ! )
Ton code tel que fonctionne très bien chez moi sur un userform
ayant les 3 textbox nommés tels les tiens et la feuille de données nommée
itou.
Le pb vient d'ailleurs ?
Claude
"Péhemme" <Pehemme@yahoo.com> a écrit dans le message de news:
418bb8ed$0$18866$8fcfb975@news.wanadoo.fr...
Bonsoir à Toutes et à Tous,
Je souhaite récupérer des informations (date, numéro et nom) saisies dans
des TxtBoxes à l'intérieur d'une Frame le tout sur une UserForm.
La "recopie" ne fonctionne pas.
Qu'oublie-je ?
Sub NouvelleInscription()
Dim R As Long
'Détermine la hauteur de la base de données
With Sheets("Base de Données")
R = .Range("f65536").End(xlUp).Row + 1
If R < 8 Then R = 8
End With
MsgBox R
'Jusque là, cela fonctionne, c'est la recopie (code suivant) qui bloque.
With Sheets("Base de Données")
.Range("b" & R).Value = txtDateCréat.Value
.Range("e" & R).Value = txtNuméroIncrip.Value
.Range("f" & R).Value = txtNomEnf.Value
End With
End Sub
Merci d'avance de votre aide
Michel (le seul qui s'accroche)
Bonsoir Michel ( j'ai vu dans le fil anniversaire ! )
Ton code tel que fonctionne très bien chez moi sur un userform
ayant les 3 textbox nommés tels les tiens et la feuille de données nommée
itou.
Le pb vient d'ailleurs ?
Claude
"Péhemme" a écrit dans le message de news:
418bb8ed$0$18866$Bonsoir à Toutes et à Tous,
Je souhaite récupérer des informations (date, numéro et nom) saisies dans
des TxtBoxes à l'intérieur d'une Frame le tout sur une UserForm.
La "recopie" ne fonctionne pas.
Qu'oublie-je ?
Sub NouvelleInscription()
Dim R As Long
'Détermine la hauteur de la base de données
With Sheets("Base de Données")
R = .Range("f65536").End(xlUp).Row + 1
If R < 8 Then R = 8
End With
MsgBox R
'Jusque là, cela fonctionne, c'est la recopie (code suivant) qui bloque.
With Sheets("Base de Données")
.Range("b" & R).Value = txtDateCréat.Value
.Range("e" & R).Value = txtNuméroIncrip.Value
.Range("f" & R).Value = txtNomEnf.Value
End With
End Sub
Merci d'avance de votre aide
Michel (le seul qui s'accroche)
Bonsoir Claude,
Merci de ton commentaire.
Je me demande en effet si le problème ne vient pas du fait que ces TxtBox
sont inclues dans une Frame, mais je ne sais pas écrire le code qui irait
bien.
Bien amicalement
Michel
"Claude Trouet" a écrit dans le message
de news: %Bonsoir Michel ( j'ai vu dans le fil anniversaire ! )
Ton code tel que fonctionne très bien chez moi sur un userform
ayant les 3 textbox nommés tels les tiens et la feuille de données nommée
itou.
Le pb vient d'ailleurs ?
Claude
"Péhemme" a écrit dans le message de news:
418bb8ed$0$18866$Bonsoir à Toutes et à Tous,
Je souhaite récupérer des informations (date, numéro et nom) saisies
dans des TxtBoxes à l'intérieur d'une Frame le tout sur une UserForm.
La "recopie" ne fonctionne pas.
Qu'oublie-je ?
Sub NouvelleInscription()
Dim R As Long
'Détermine la hauteur de la base de données
With Sheets("Base de Données")
R = .Range("f65536").End(xlUp).Row + 1
If R < 8 Then R = 8
End With
MsgBox R
'Jusque là, cela fonctionne, c'est la recopie (code suivant) qui bloque.
With Sheets("Base de Données")
.Range("b" & R).Value = txtDateCréat.Value
.Range("e" & R).Value = txtNuméroIncrip.Value
.Range("f" & R).Value = txtNomEnf.Value
End With
End Sub
Merci d'avance de votre aide
Michel (le seul qui s'accroche)
Bonsoir Claude,
Merci de ton commentaire.
Je me demande en effet si le problème ne vient pas du fait que ces TxtBox
sont inclues dans une Frame, mais je ne sais pas écrire le code qui irait
bien.
Bien amicalement
Michel
"Claude Trouet" <nospam-claude.trouet@wanadoo.fr> a écrit dans le message
de news: %236QwB91wEHA.3336@TK2MSFTNGP11.phx.gbl...
Bonsoir Michel ( j'ai vu dans le fil anniversaire ! )
Ton code tel que fonctionne très bien chez moi sur un userform
ayant les 3 textbox nommés tels les tiens et la feuille de données nommée
itou.
Le pb vient d'ailleurs ?
Claude
"Péhemme" <Pehemme@yahoo.com> a écrit dans le message de news:
418bb8ed$0$18866$8fcfb975@news.wanadoo.fr...
Bonsoir à Toutes et à Tous,
Je souhaite récupérer des informations (date, numéro et nom) saisies
dans des TxtBoxes à l'intérieur d'une Frame le tout sur une UserForm.
La "recopie" ne fonctionne pas.
Qu'oublie-je ?
Sub NouvelleInscription()
Dim R As Long
'Détermine la hauteur de la base de données
With Sheets("Base de Données")
R = .Range("f65536").End(xlUp).Row + 1
If R < 8 Then R = 8
End With
MsgBox R
'Jusque là, cela fonctionne, c'est la recopie (code suivant) qui bloque.
With Sheets("Base de Données")
.Range("b" & R).Value = txtDateCréat.Value
.Range("e" & R).Value = txtNuméroIncrip.Value
.Range("f" & R).Value = txtNomEnf.Value
End With
End Sub
Merci d'avance de votre aide
Michel (le seul qui s'accroche)
Bonsoir Claude,
Merci de ton commentaire.
Je me demande en effet si le problème ne vient pas du fait que ces TxtBox
sont inclues dans une Frame, mais je ne sais pas écrire le code qui irait
bien.
Bien amicalement
Michel
"Claude Trouet" a écrit dans le message
de news: %Bonsoir Michel ( j'ai vu dans le fil anniversaire ! )
Ton code tel que fonctionne très bien chez moi sur un userform
ayant les 3 textbox nommés tels les tiens et la feuille de données nommée
itou.
Le pb vient d'ailleurs ?
Claude
"Péhemme" a écrit dans le message de news:
418bb8ed$0$18866$Bonsoir à Toutes et à Tous,
Je souhaite récupérer des informations (date, numéro et nom) saisies
dans des TxtBoxes à l'intérieur d'une Frame le tout sur une UserForm.
La "recopie" ne fonctionne pas.
Qu'oublie-je ?
Sub NouvelleInscription()
Dim R As Long
'Détermine la hauteur de la base de données
With Sheets("Base de Données")
R = .Range("f65536").End(xlUp).Row + 1
If R < 8 Then R = 8
End With
MsgBox R
'Jusque là, cela fonctionne, c'est la recopie (code suivant) qui bloque.
With Sheets("Base de Données")
.Range("b" & R).Value = txtDateCréat.Value
.Range("e" & R).Value = txtNuméroIncrip.Value
.Range("f" & R).Value = txtNomEnf.Value
End With
End Sub
Merci d'avance de votre aide
Michel (le seul qui s'accroche)
Bonsoir Claude,
Merci de ton commentaire.
Je me demande en effet si le problème ne vient pas du fait que ces TxtBox
sont inclues dans une Frame, mais je ne sais pas écrire le code qui irait
bien.
Bien amicalement
Michel
"Claude Trouet" a écrit dans le message
de news: %Bonsoir Michel ( j'ai vu dans le fil anniversaire ! )
Ton code tel que fonctionne très bien chez moi sur un userform
ayant les 3 textbox nommés tels les tiens et la feuille de données nommée
itou.
Le pb vient d'ailleurs ?
Claude
"Péhemme" a écrit dans le message de news:
418bb8ed$0$18866$Bonsoir à Toutes et à Tous,
Je souhaite récupérer des informations (date, numéro et nom) saisies
dans des TxtBoxes à l'intérieur d'une Frame le tout sur une UserForm.
La "recopie" ne fonctionne pas.
Qu'oublie-je ?
Sub NouvelleInscription()
Dim R As Long
'Détermine la hauteur de la base de données
With Sheets("Base de Données")
R = .Range("f65536").End(xlUp).Row + 1
If R < 8 Then R = 8
End With
MsgBox R
'Jusque là, cela fonctionne, c'est la recopie (code suivant) qui bloque.
With Sheets("Base de Données")
.Range("b" & R).Value = txtDateCréat.Value
.Range("e" & R).Value = txtNuméroIncrip.Value
.Range("f" & R).Value = txtNomEnf.Value
End With
End Sub
Merci d'avance de votre aide
Michel (le seul qui s'accroche)
Bonsoir Claude,
Merci de ton commentaire.
Je me demande en effet si le problème ne vient pas du fait que ces TxtBox
sont inclues dans une Frame, mais je ne sais pas écrire le code qui irait
bien.
Bien amicalement
Michel
"Claude Trouet" <nospam-claude.trouet@wanadoo.fr> a écrit dans le message
de news: %236QwB91wEHA.3336@TK2MSFTNGP11.phx.gbl...
Bonsoir Michel ( j'ai vu dans le fil anniversaire ! )
Ton code tel que fonctionne très bien chez moi sur un userform
ayant les 3 textbox nommés tels les tiens et la feuille de données nommée
itou.
Le pb vient d'ailleurs ?
Claude
"Péhemme" <Pehemme@yahoo.com> a écrit dans le message de news:
418bb8ed$0$18866$8fcfb975@news.wanadoo.fr...
Bonsoir à Toutes et à Tous,
Je souhaite récupérer des informations (date, numéro et nom) saisies
dans des TxtBoxes à l'intérieur d'une Frame le tout sur une UserForm.
La "recopie" ne fonctionne pas.
Qu'oublie-je ?
Sub NouvelleInscription()
Dim R As Long
'Détermine la hauteur de la base de données
With Sheets("Base de Données")
R = .Range("f65536").End(xlUp).Row + 1
If R < 8 Then R = 8
End With
MsgBox R
'Jusque là, cela fonctionne, c'est la recopie (code suivant) qui bloque.
With Sheets("Base de Données")
.Range("b" & R).Value = txtDateCréat.Value
.Range("e" & R).Value = txtNuméroIncrip.Value
.Range("f" & R).Value = txtNomEnf.Value
End With
End Sub
Merci d'avance de votre aide
Michel (le seul qui s'accroche)
Bonsoir Claude,
Merci de ton commentaire.
Je me demande en effet si le problème ne vient pas du fait que ces TxtBox
sont inclues dans une Frame, mais je ne sais pas écrire le code qui irait
bien.
Bien amicalement
Michel
"Claude Trouet" a écrit dans le message
de news: %Bonsoir Michel ( j'ai vu dans le fil anniversaire ! )
Ton code tel que fonctionne très bien chez moi sur un userform
ayant les 3 textbox nommés tels les tiens et la feuille de données nommée
itou.
Le pb vient d'ailleurs ?
Claude
"Péhemme" a écrit dans le message de news:
418bb8ed$0$18866$Bonsoir à Toutes et à Tous,
Je souhaite récupérer des informations (date, numéro et nom) saisies
dans des TxtBoxes à l'intérieur d'une Frame le tout sur une UserForm.
La "recopie" ne fonctionne pas.
Qu'oublie-je ?
Sub NouvelleInscription()
Dim R As Long
'Détermine la hauteur de la base de données
With Sheets("Base de Données")
R = .Range("f65536").End(xlUp).Row + 1
If R < 8 Then R = 8
End With
MsgBox R
'Jusque là, cela fonctionne, c'est la recopie (code suivant) qui bloque.
With Sheets("Base de Données")
.Range("b" & R).Value = txtDateCréat.Value
.Range("e" & R).Value = txtNuméroIncrip.Value
.Range("f" & R).Value = txtNomEnf.Value
End With
End Sub
Merci d'avance de votre aide
Michel (le seul qui s'accroche)
Re,
.... même dans un frame ça marche !
Claude
"Péhemme" a écrit dans le message de news:
418bbe08$0$18869$Bonsoir Claude,
Merci de ton commentaire.
Je me demande en effet si le problème ne vient pas du fait que ces TxtBox
sont inclues dans une Frame, mais je ne sais pas écrire le code qui irait
bien.
Bien amicalement
Michel
"Claude Trouet" a écrit dans le message
de news: %Bonsoir Michel ( j'ai vu dans le fil anniversaire ! )
Ton code tel que fonctionne très bien chez moi sur un userform
ayant les 3 textbox nommés tels les tiens et la feuille de données
nommée itou.
Le pb vient d'ailleurs ?
Claude
"Péhemme" a écrit dans le message de news:
418bb8ed$0$18866$Bonsoir à Toutes et à Tous,
Je souhaite récupérer des informations (date, numéro et nom) saisies
dans des TxtBoxes à l'intérieur d'une Frame le tout sur une UserForm.
La "recopie" ne fonctionne pas.
Qu'oublie-je ?
Sub NouvelleInscription()
Dim R As Long
'Détermine la hauteur de la base de données
With Sheets("Base de Données")
R = .Range("f65536").End(xlUp).Row + 1
If R < 8 Then R = 8
End With
MsgBox R
'Jusque là, cela fonctionne, c'est la recopie (code suivant) qui
bloque.
With Sheets("Base de Données")
.Range("b" & R).Value = txtDateCréat.Value
.Range("e" & R).Value = txtNuméroIncrip.Value
.Range("f" & R).Value = txtNomEnf.Value
End With
End Sub
Merci d'avance de votre aide
Michel (le seul qui s'accroche)
Re,
.... même dans un frame ça marche !
Claude
"Péhemme" <Pehemme@yahoo.com> a écrit dans le message de news:
418bbe08$0$18869$8fcfb975@news.wanadoo.fr...
Bonsoir Claude,
Merci de ton commentaire.
Je me demande en effet si le problème ne vient pas du fait que ces TxtBox
sont inclues dans une Frame, mais je ne sais pas écrire le code qui irait
bien.
Bien amicalement
Michel
"Claude Trouet" <nospam-claude.trouet@wanadoo.fr> a écrit dans le message
de news: %236QwB91wEHA.3336@TK2MSFTNGP11.phx.gbl...
Bonsoir Michel ( j'ai vu dans le fil anniversaire ! )
Ton code tel que fonctionne très bien chez moi sur un userform
ayant les 3 textbox nommés tels les tiens et la feuille de données
nommée itou.
Le pb vient d'ailleurs ?
Claude
"Péhemme" <Pehemme@yahoo.com> a écrit dans le message de news:
418bb8ed$0$18866$8fcfb975@news.wanadoo.fr...
Bonsoir à Toutes et à Tous,
Je souhaite récupérer des informations (date, numéro et nom) saisies
dans des TxtBoxes à l'intérieur d'une Frame le tout sur une UserForm.
La "recopie" ne fonctionne pas.
Qu'oublie-je ?
Sub NouvelleInscription()
Dim R As Long
'Détermine la hauteur de la base de données
With Sheets("Base de Données")
R = .Range("f65536").End(xlUp).Row + 1
If R < 8 Then R = 8
End With
MsgBox R
'Jusque là, cela fonctionne, c'est la recopie (code suivant) qui
bloque.
With Sheets("Base de Données")
.Range("b" & R).Value = txtDateCréat.Value
.Range("e" & R).Value = txtNuméroIncrip.Value
.Range("f" & R).Value = txtNomEnf.Value
End With
End Sub
Merci d'avance de votre aide
Michel (le seul qui s'accroche)
Re,
.... même dans un frame ça marche !
Claude
"Péhemme" a écrit dans le message de news:
418bbe08$0$18869$Bonsoir Claude,
Merci de ton commentaire.
Je me demande en effet si le problème ne vient pas du fait que ces TxtBox
sont inclues dans une Frame, mais je ne sais pas écrire le code qui irait
bien.
Bien amicalement
Michel
"Claude Trouet" a écrit dans le message
de news: %Bonsoir Michel ( j'ai vu dans le fil anniversaire ! )
Ton code tel que fonctionne très bien chez moi sur un userform
ayant les 3 textbox nommés tels les tiens et la feuille de données
nommée itou.
Le pb vient d'ailleurs ?
Claude
"Péhemme" a écrit dans le message de news:
418bb8ed$0$18866$Bonsoir à Toutes et à Tous,
Je souhaite récupérer des informations (date, numéro et nom) saisies
dans des TxtBoxes à l'intérieur d'une Frame le tout sur une UserForm.
La "recopie" ne fonctionne pas.
Qu'oublie-je ?
Sub NouvelleInscription()
Dim R As Long
'Détermine la hauteur de la base de données
With Sheets("Base de Données")
R = .Range("f65536").End(xlUp).Row + 1
If R < 8 Then R = 8
End With
MsgBox R
'Jusque là, cela fonctionne, c'est la recopie (code suivant) qui
bloque.
With Sheets("Base de Données")
.Range("b" & R).Value = txtDateCréat.Value
.Range("e" & R).Value = txtNuméroIncrip.Value
.Range("f" & R).Value = txtNomEnf.Value
End With
End Sub
Merci d'avance de votre aide
Michel (le seul qui s'accroche)
Re,
.... même dans un frame ça marche !
Claude
"Péhemme" a écrit dans le message de news:
418bbe08$0$18869$Bonsoir Claude,
Merci de ton commentaire.
Je me demande en effet si le problème ne vient pas du fait que ces TxtBox
sont inclues dans une Frame, mais je ne sais pas écrire le code qui irait
bien.
Bien amicalement
Michel
"Claude Trouet" a écrit dans le message
de news: %Bonsoir Michel ( j'ai vu dans le fil anniversaire ! )
Ton code tel que fonctionne très bien chez moi sur un userform
ayant les 3 textbox nommés tels les tiens et la feuille de données
nommée itou.
Le pb vient d'ailleurs ?
Claude
"Péhemme" a écrit dans le message de news:
418bb8ed$0$18866$Bonsoir à Toutes et à Tous,
Je souhaite récupérer des informations (date, numéro et nom) saisies
dans des TxtBoxes à l'intérieur d'une Frame le tout sur une UserForm.
La "recopie" ne fonctionne pas.
Qu'oublie-je ?
Sub NouvelleInscription()
Dim R As Long
'Détermine la hauteur de la base de données
With Sheets("Base de Données")
R = .Range("f65536").End(xlUp).Row + 1
If R < 8 Then R = 8
End With
MsgBox R
'Jusque là, cela fonctionne, c'est la recopie (code suivant) qui
bloque.
With Sheets("Base de Données")
.Range("b" & R).Value = txtDateCréat.Value
.Range("e" & R).Value = txtNuméroIncrip.Value
.Range("f" & R).Value = txtNomEnf.Value
End With
End Sub
Merci d'avance de votre aide
Michel (le seul qui s'accroche)
Re,
.... même dans un frame ça marche !
Claude
"Péhemme" <Pehemme@yahoo.com> a écrit dans le message de news:
418bbe08$0$18869$8fcfb975@news.wanadoo.fr...
Bonsoir Claude,
Merci de ton commentaire.
Je me demande en effet si le problème ne vient pas du fait que ces TxtBox
sont inclues dans une Frame, mais je ne sais pas écrire le code qui irait
bien.
Bien amicalement
Michel
"Claude Trouet" <nospam-claude.trouet@wanadoo.fr> a écrit dans le message
de news: %236QwB91wEHA.3336@TK2MSFTNGP11.phx.gbl...
Bonsoir Michel ( j'ai vu dans le fil anniversaire ! )
Ton code tel que fonctionne très bien chez moi sur un userform
ayant les 3 textbox nommés tels les tiens et la feuille de données
nommée itou.
Le pb vient d'ailleurs ?
Claude
"Péhemme" <Pehemme@yahoo.com> a écrit dans le message de news:
418bb8ed$0$18866$8fcfb975@news.wanadoo.fr...
Bonsoir à Toutes et à Tous,
Je souhaite récupérer des informations (date, numéro et nom) saisies
dans des TxtBoxes à l'intérieur d'une Frame le tout sur une UserForm.
La "recopie" ne fonctionne pas.
Qu'oublie-je ?
Sub NouvelleInscription()
Dim R As Long
'Détermine la hauteur de la base de données
With Sheets("Base de Données")
R = .Range("f65536").End(xlUp).Row + 1
If R < 8 Then R = 8
End With
MsgBox R
'Jusque là, cela fonctionne, c'est la recopie (code suivant) qui
bloque.
With Sheets("Base de Données")
.Range("b" & R).Value = txtDateCréat.Value
.Range("e" & R).Value = txtNuméroIncrip.Value
.Range("f" & R).Value = txtNomEnf.Value
End With
End Sub
Merci d'avance de votre aide
Michel (le seul qui s'accroche)
Re,
.... même dans un frame ça marche !
Claude
"Péhemme" a écrit dans le message de news:
418bbe08$0$18869$Bonsoir Claude,
Merci de ton commentaire.
Je me demande en effet si le problème ne vient pas du fait que ces TxtBox
sont inclues dans une Frame, mais je ne sais pas écrire le code qui irait
bien.
Bien amicalement
Michel
"Claude Trouet" a écrit dans le message
de news: %Bonsoir Michel ( j'ai vu dans le fil anniversaire ! )
Ton code tel que fonctionne très bien chez moi sur un userform
ayant les 3 textbox nommés tels les tiens et la feuille de données
nommée itou.
Le pb vient d'ailleurs ?
Claude
"Péhemme" a écrit dans le message de news:
418bb8ed$0$18866$Bonsoir à Toutes et à Tous,
Je souhaite récupérer des informations (date, numéro et nom) saisies
dans des TxtBoxes à l'intérieur d'une Frame le tout sur une UserForm.
La "recopie" ne fonctionne pas.
Qu'oublie-je ?
Sub NouvelleInscription()
Dim R As Long
'Détermine la hauteur de la base de données
With Sheets("Base de Données")
R = .Range("f65536").End(xlUp).Row + 1
If R < 8 Then R = 8
End With
MsgBox R
'Jusque là, cela fonctionne, c'est la recopie (code suivant) qui
bloque.
With Sheets("Base de Données")
.Range("b" & R).Value = txtDateCréat.Value
.Range("e" & R).Value = txtNuméroIncrip.Value
.Range("f" & R).Value = txtNomEnf.Value
End With
End Sub
Merci d'avance de votre aide
Michel (le seul qui s'accroche)
Bonsoir à Toutes et à Tous,
Je souhaite récupérer des informations (date, numéro et nom) saisies dans
des TxtBoxes à l'intérieur d'une Frame le tout sur une UserForm.
La "recopie" ne fonctionne pas.
Qu'oublie-je ?
Sub NouvelleInscription()
Dim R As Long
'Détermine la hauteur de la base de données
With Sheets("Base de Données")
R = .Range("f65536").End(xlUp).Row + 1
If R < 8 Then R = 8
End With
MsgBox R
'Jusque là, cela fonctionne, c'est la recopie (code suivant) qui bloque.
With Sheets("Base de Données")
.Range("b" & R).Value = txtDateCréat.Value
.Range("e" & R).Value = txtNuméroIncrip.Value
.Range("f" & R).Value = txtNomEnf.Value
End With
End Sub
Merci d'avance de votre aide
Michel (le seul qui s'accroche)
Bonsoir à Toutes et à Tous,
Je souhaite récupérer des informations (date, numéro et nom) saisies dans
des TxtBoxes à l'intérieur d'une Frame le tout sur une UserForm.
La "recopie" ne fonctionne pas.
Qu'oublie-je ?
Sub NouvelleInscription()
Dim R As Long
'Détermine la hauteur de la base de données
With Sheets("Base de Données")
R = .Range("f65536").End(xlUp).Row + 1
If R < 8 Then R = 8
End With
MsgBox R
'Jusque là, cela fonctionne, c'est la recopie (code suivant) qui bloque.
With Sheets("Base de Données")
.Range("b" & R).Value = txtDateCréat.Value
.Range("e" & R).Value = txtNuméroIncrip.Value
.Range("f" & R).Value = txtNomEnf.Value
End With
End Sub
Merci d'avance de votre aide
Michel (le seul qui s'accroche)
Bonsoir à Toutes et à Tous,
Je souhaite récupérer des informations (date, numéro et nom) saisies dans
des TxtBoxes à l'intérieur d'une Frame le tout sur une UserForm.
La "recopie" ne fonctionne pas.
Qu'oublie-je ?
Sub NouvelleInscription()
Dim R As Long
'Détermine la hauteur de la base de données
With Sheets("Base de Données")
R = .Range("f65536").End(xlUp).Row + 1
If R < 8 Then R = 8
End With
MsgBox R
'Jusque là, cela fonctionne, c'est la recopie (code suivant) qui bloque.
With Sheets("Base de Données")
.Range("b" & R).Value = txtDateCréat.Value
.Range("e" & R).Value = txtNuméroIncrip.Value
.Range("f" & R).Value = txtNomEnf.Value
End With
End Sub
Merci d'avance de votre aide
Michel (le seul qui s'accroche)
Bonjour Péhemme,
Est-ce possible que ta feuille où tu copies tes données soit protégée ?
Évidemment, ton code se doit d'être écrit directement dans le module du
formulaire sinon la syntaxe ne serait pas bonne
!
Salutations!
Bonjour Péhemme,
Est-ce possible que ta feuille où tu copies tes données soit protégée ?
Évidemment, ton code se doit d'être écrit directement dans le module du
formulaire sinon la syntaxe ne serait pas bonne
!
Salutations!
Bonjour Péhemme,
Est-ce possible que ta feuille où tu copies tes données soit protégée ?
Évidemment, ton code se doit d'être écrit directement dans le module du
formulaire sinon la syntaxe ne serait pas bonne
!
Salutations!
